SENSATIONAL 
GAMES FOR 
THE AMSTRAD 





:\ 



-X 



JIM GREGORY 




Introduction 



Each game featured in these pages has been specially written for this 
book. This has resulted in a range of programs covering all types of 
games. They incorporate many useful techniques and some share the 
same subroutines. In some cases, control routines are arranged in 
such a way that if you use the method detailed in the chapter on 
subroutines you will be able to save yourself a lot of typing! 

Each listing has been printed with a width setting of 40 columns to 
help reduce entry errors. This means that if you use Mode 1 to enter 
the programs then a line on the page will match a line on the screen; 
this feature is an example of the effort which has gone into ensuring 
your complete success with each and every program. 

After extensive testing all the listings have been produced from 
actual working programs. Each has been reproduced directly from 
the computer printout. This means that the most likely reason for a 
program not working is that the reader has typed it in wrong! 

I have entered many programs from books and magazines, and I 
know from experience that at some stage you will not believe that you 
have got it wrong. Please read the following notes on programming 
carefully. They will help you to avoid the most common mistakes as 
you enter the programs. Follow the advice given and you will find 
that your microcomputer hobby can be more enjoyable and less 
frustrating. 

Although most of the following guidelines may seem obvious, each 
will save you time or trouble. If you are prepared and relaxed then 
few errors will be made. 



First program yourself 

1. Set up your equipment on a desk or table, make sure that you 
are seated properly and try to keep your back straight. Ensure that 



2 Sensational Games for the Amstrad 

lighting is good and that the book is supported where it can be read 
easily. 

2. Before you start a long typing session ensure that everything is 
plugged in! 

3. Make sure that you have a good supply of blank tapes. 

4. If your blank tapes have a 'leader' on them, it is a good idea to 
prepare them for saving by turning the hub until the brown of the 
tape shows. 

5. To make certain everything is OK, get a long audio tape such as 
a C90, which will be your working tape. Next complete a 'Save and 
load test', e.g. type in 

10 REM TEST 

20 PRINT'TEST O.K." 

30 GOTO 10 

or a similar short program. 

Save Test, rewind the tape, then load Test, and'RUN' it. If this isOK, 
do not rewind the tape, leave it where it stopped. If all does not 
operate correctly then check everything and try again, until all is 
working. You will then be able to use this tape to store your program, 
either when you have finished or part way through to be continued 
later. 

I recommend that you use the Speed write option and save the 
program twice rather than use the slow speed. This has been found 
to be totally satisfactory during the development of programs for this 

book. 

6. When you save a part version give it a title which will help you 
later, such as 'V T, ' V2\ etc. You may prefer to use the date and time 
of saving, e.g. 8. 15 14/ 10/85. 

As you save a version, remember to make a note on the cassette or 
insert of the title and the counter number. These will enable you to 
retrieve the program quickly when you wish to resume entering the 
program or to 'debug' your completed program. 

7. Always save onto tape before you type RUN. The microworld is 
full of keen folk who lost hours of work because they typed RUN 
before saving. (If you have saved earlier versions as directed, at least 
only part will be lost.) 

The reasons for losing a program in this way are various. Examples 
are: mistyping words so that the interpreter performs a 'new' 
instruction, or gets into a loop from which there is no escape except 
by switching off. Programs which incorporate either machine code, 
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POKE statements or System calls are most liable to 'crash', due to 
incorrect values being encountered by the program. 

8. When a program is finished and working it is recommended 
that one copy is kept on a C90 back-up tape along with other 
programs. The main copy should be stored on a suitable short length 
cassette such as a C 15. Only one program per side should be allowed, 
to enable it to be loaded easily and quickly when required. Remember 
to write the title on the label. 

This two-tape system should help to prevent re-typing if a cassette 
is lost, damaged or develops a fault. 

9. Many users become very careless about storage of cassettes and 
then wonder why they sometimes become faulty. If you want to keep 
what you've saved follow these rules: 

• Identify all tapes and cases clearly. 

• Keep them in cases in a rack or storage system. 

• Store away from heat. 

• Store away from any magnetic fields such as TV sets, computers, 
loudspeakers, motors, fans and very definitely telephones, all of 
which may damage or erase your program. 

• Don't leave tapes in the deck when they are not required, and do 
not leave the deck switched into 'play 1 unless the program requires 
it. 

• Remember to break out the plastic tabs at the back of the tape to 
prevent accidental erasure of the program. If ever you wish to re- 
record over a protected tape temporarily cover the tab hole with 
adhesive tape. 

10. Don't spend longer than about three hours in a session. Havea 
break, walk about, have a shower, play a game! 



Other problems 

PARIS 

IN THE 
THE SPRING 

Read the above out loud! You will be surprised to know that most 
people read it as 'Paris in the spring 1 . Perhaps you did too! However, 
it actually says 'Paris in the the spring'. The word 'the' is printed 
twice, but because it is not expected and because the phrase is 
familiar, the second 'the' is not 'seen' by the mind. 
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A similar problem occurs when programs are typed in from 
listings. You often type what you expect to see instead of what is 
printed. This is why the letter O is sometimes typed when it should be 
'zero' (printed as 0), or S is incorrectly typed instead of the dollar 
symbol (printed as $). 

A moment's lapse of concentration can lead to lines becoming 
jumbled as the eye jumps from one line to the next. For example: 

10 PRINTThis is the start" 
20 PRINTThis is next" 

becomes: 

10 PRINTThis is the next" 

Look at the screen to check that your shifted letters have been 
correctly entered. Failure to do this produces classics such as: 

10 PRINT 2 WHERE ARE THE QUOTES!2 

Under no circumstances should you attempt to alter a program as 
it is entered. If the numbers go: 10,20,30, etc., then enter them like 
that. Changes are best made after a program is known to be working. 
This applies to everything do not be tempted to miss out lines 
because you think that they may be optional. Otherwise program 
control could attempt to go to a line number that you have changed 
or deleted, and crash the program. 

'Rem' statements are remark statements and have been used to 
help you to understand the program. They should be entered as 
printed. Only when a working program has been produced and saved 
should you perhaps produce a copy which has no 'REMs'. This could 
save a little memory, but there is no real benefit to be obtained. On 
the programs listed in this book it is safe to omit all 'REMs'. This is 
because care has been taken not to send control to a 'REM' line. Be 
careful with programs from other sources - there are some authors 
who think that it is good practice to send control to a 'REM 1 line. 

Spaces are always of vital importance in a computer program. 
Care should be taken to get them right, to enable spaces to be counted 
and entered accurately. Simply align a piece of paper or card with the 
characters above and below, and count as the edge is moved along. 

The width of printout has been set to match the 40 column Mode 1 
display of the computer. If you use Mode 1 for entry this should help 
you to check that everything is right - for example, if the listing shows 
a line ending with four spaces. Then your line on the screen should 
also have four spaces at the end. Please be particularly careful to 
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enter each line as a complete line from the line number commands. 
Confusion could arise when the line includes numbers which wrap 
onto the next line. Do not enter these lines separately, or the 
computer will take it as a line number which will cause problems. 

You may find it useful to place a ruler along the line you are up to. 
This will further reduce the risk of errors. 

If you follow all the foregoing then you should not have any great 
problems. However, it is inevitable that some bugs will creep in. If 
your program fails to operate properly then the last chapter contains 
some helpful advice on debugging. 

That's enough preparation for you, let's now start practising with 
the next chapter and some useful subroutines. 



Techniques Used in the 
Programs 



Colour pointers (logical colours) 

The system of colour allocation used in the Amstrad can help 
produce the illusion of very fast movement. The system works by 
drawing each moving element of a picture separately with different 
colour pointers. Next the pointers are swapped under program 
control. When each colour is changed the effect on screen is 
instantaneous and produces the impression of movement. 

Many of the games in this book have been designed around this 
feature. Maze Maniac uses the technique to great effect. The result is 
a maze which changes views very rapidly. This speed could not have 
been achieved otherwise, unless extensive machine code routines 
were used. 

The cassette which came with your Amstrad has some other 
examples which are very decorative. 

This technique works best in M ode , since 1 6 colours are available 
to produce in effect 16 sets of movement or switched zones. If greater 
resolution and limited movement is required then M ode 1 provides 4 
sets. 

Remember that one colour will be required for the background 
and any permanent information that you want on screen. 

Take a careful look at the dice rolling routine contained in this 
book, to see another example of how effective this system can be. 



Exclusive oring (XOR) 

This is another technique which is used extensively throughout this 
book. The use of XOR enables information to be superimposed upon 
the image which is already on screen. Performing the XOR again will 
remove the image, leaving the background as it was. 
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Examples of the commands required to implement this powerful 
feature can be found throughout the listings. The Chess Duel 
program contains some superb examples. 

You will find it useful to use the listings as a source for solutions to 
programming problems. Try to understand the reason that certain 
routines are used and how they work. Once the programs are fully 
working and saved on tape then it is recommended that you 
experiment. Change the colours or parameters and see what happens. 
This way you can learn more about programming and be able to 
incorporate what you learn into your own programs. This is the most 
satisfying aspect of having your own computer. 



Subroutines 




Short Cuts to Success 

We estimate that the total memory used by all the listings in this book 
is over 200K. It has therefore been essential to reduce the amount of 
entry to a minimum. 

This has been done by the extensive use of subroutines. In 
particular three routines are used extensively. 

1 . High Score. This basic program takes the score achieved by our 
player and compares it with those already in its array. If the new score 
is higher than one in the table then the opportunity is given for the 
player to enter his nickname, initials or whatever. This routine should 
be typed in as listed here and then merged with the appropriate game 
when required. 

Changes will be required to some programs, as follows. Type in the 
replacement lines given for each program. 



Rainbow Breakout: 26100 GOSUB 60000:GOTO 1 
Maze Maniac: 33040 GOSUB 60000:GOTO 1 
Parrot: 195 SC=PO*10 
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200 GOSUB 60000:GOTO 25 
Pick Man: 35010 GOSUB 60000:GOTO 1000 
Kinkey Dong: 6005 GOSUB 60000:GOTO 1000 
Hi-Lo and Skippy need no additional lines. The subroutines 
should just be merged in. 

'HIGH SCORE' 



60000 MODE l: BORDER 0: PAPER 0:PEN 2:CLS: 

re~0 

60060 PRINT :PRINT TAB<6> $ "Hi gh Scores fo 

r " ; gam$ 

60070 PR I NT: PR I NT 

60080 FOR a=l TO 5 

60090 PRINT: PRINT TAB<4> ; a ;"..-. M ; na$(a) 

; TAB (30) ;sco(a) 

60100 NEXT a 

60110 FOR a=5 TO 1 STEP -1 

60120 IF 5C>sco(a) AND sc<sco(a-l) THEN 

re=a 

60130 NEXT 

60140 IF re=0 THEN 60430 

60150 FOR a=4 TO re STEP -l:na*(a+l)=na$ 

(a> : scoCa+l )=sco(a) :NEXT 

60 1 60 na$ < re > = " " : s c o ( re ) = sc 

60170 CLS: PRINT: PRINT TAB<6> ; "Hi gh Score 

s for " ; gam$ 

60 130 PRINT: PRINT 

60190 FOR a=l TO 5 

60200 PRINT: PRINT TAB<4> ; a ; " - • . - " ; na*(a) 

; TAB (30) ;sco(a) 

60210 NEXT a 

60220 PRINT: PRINT" Please enter yo 

ur name " :n*="ABCDEFGHI JKLMNOPQRSTUVWXYZ 

-]" 

60230 PR I NT: PR I NT TAB(5) jn*: x=5 

60240 PRINT: PRINT" ] --- End-" 

60250 LOCATE x , 19 : PRINT"-" 

60260 LOCATE 10,22: PRINT na*(re) 

60270 GOSUB 29000 

60280 IF le=l AND x >5 THEN LOCATE x,19:P 

RINT " n :x=x-l 

60290 IF ri=l AND x<33 THEN LOCATE x,19: 

PRINT " " :x=x+l 
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60300 IF fi=l AND MID*<n*,<x-4>,l>= H ] M TH 

EN 60340 

603 10 IF f i = 1 THEN r\&* < re) =na$ < re > + M I D$ ( 

n$, (>i"4> , 1) 

60320 IF LEN<na*Cre)>=15 THEN 60340 

60330 GOTO 60250 

60340 MODE l:CLS 

60350 PRINT: PRINT TAB<6> ; "Hi gh Scores fo 

r " ; gam$ 

60360 PR I NT: PR I NT 

60370 FOR a=l TO 5 

60330 PR I NT: PR I NT TAB<4) ; a ; M - - . - " ; r.a$(a) 

; TAB (30) jsco(a) 

60390 NEXT a 

60400 PRINT: PRINT " Press FIRE to play 

again - " 
60405 a$=" " 

60410 GOSUB 29000: IF fi~l THEN 60420 
6 415 G T 6 <b 410 
60420 RETURN 

60430 I F sc< sco(l) THEN 60340 
60440 re~l :GGTG 60150 



2. Inkeys. This is a machine code subroutine used to enable the 
joystick or the cursor pad to be read very quickly. The routine is 
poked into memory by a short program to avoid difficulties which 
may otherwise be encountered. 

Type in the routine as listed and then save to tape. Then whenever 
required it can be merged into a program. Each listing clearly shows 
when the routine is required. 

'INKEYS' 



28980 REM > > > > > > > > in keys/joy < < < < 

29000 1 e = • ri=0 • up=0 - do=0 = f i=0 s e>; : 

29010 CALL addr+1 : a=PEEK(addr} 

29020 IF a=Q OR a=242 THEN le=l 

29030 IF a=9 OR a=243 THEN ri = l 

29040 IF a=il OR a=24® THEN up=l 

29050 IF a=10 OR a=241 THEN do=l 

29060 IF a-88 OR a-224 THEN fi-1 

29070 IF a=13 THEN q=l 



:0 : 



q-0 
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29080 IF a=32 THEN ex=l 
29090 RETURN 

2 9 4 S REM > > > > > > > > poke inkeys < < < < < < < < 

29500 c = I NT (ad dr7 256) : fo=addr-256*c 

29510 RESTORE 29580 

29520 FOR n=addr TO addr+13 

29530 READ a: IF a = 999 THEN a=h 

29540 IF a=998 THEN ^c 

29550 POKE n,B 

29560 NEXT r. 

29570 RETURN 

29580 DATA 0,62,0,50,999,998,205,27 

29590 DATA 1 87 , 208 , 50 , 999 , 998 , 20 1 

3. Char Check. This is another machine code routine used 
extensively in this book. Its purpose is to place the ASCII value of a 
character cell into the BASIC variable fc CH\ It is used after the cursor 
has been positioned using LOCATE x,y. It is called by 'GOSUB 
30000'. 

This enables a program to detect whether two items have collided 
or perhaps whether the 'ball' in Rainbow Breakout has hit a brick. 
Once typed in and saved the routine is merged wherever indicated 
within a program listing. 

'CHAR CHECK' 



29980 REM > > > > > > > > > char chec k < < < < < < 

30000 CALL loca+1 

30010 ch=PEEK< loca) 

30020 RETURN 

30480 REM >>>>>>>>> poke check <<<<<<■ 

30500 c-INT< 1 oca/256 > : fo=l oca-256*c 

30510 RESTORE 30580 

30520 FOR n=loca TO loca+1 3 

30530 READ a: IF a=999 THEN a=b 

30540 IF a=99S THEN a=c 

30550 POKE n,a 

30560 NEXT n 

30570 RETURN 

30580 DATA 0,62,244,50,999,998,205,96 

30590 DATA 1 87 , 208 , 50 , 999 , 998 , 2<0 1 
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Subroutines are used extensively for other programs in the book. 
These are listed along with the main programs where applicable. 

Draughts/ Chess. The board and other common routines can be 
merged as indicated. 

Dice games. The dice throwing routine and the other three games 
are designed to form one whole program with menu selection for 
each game. 

Card games. The 'card core' can be used in each game as directed. 



How to merge 

If it is wished to merge a set of routines into an existing program: 

1. First save the program which is in the machine. 

2. Next cue the tape containing the 'Merge' file. 

3. Type MERGE "" and 'Enter'. Then press Play on the tapedeck 
and follow prompts. 

4. When complete, 'Save' the new program before 'Running'. 

5. The program should now be ready. 

Sometimes you may prefer to load in the subroutine program first 
and then simply add the new lines to it. 

Once you have entered the subroutines and stored them on tape 
you are advised to try them out in a suitable program. A good one to 
start with is Rainbow Breakout in the classic games section. 



I 

Marie Celeste 




An Adventure at Sea 

In this text adventure you find yourself moored alongside the 
legendary ghost ship. 

What is the secret of the Marie Celeste? Where are the crew? 

By giving commands to the computer you can solve this marine 
mystery. By mixing up the text in the listing, care has been taken not 
to spoil your fun. In this way it is hoped that you will not be able to 
guess the solutions to the puzzles as they are typed in. 

It is usual for adventures to require North, South, East and West as 
directions, but since this one has a nautical setting directions are: 
Forard, Aft, Starboard or Port. Which, in case you do not know, are 
equal to front of ship, rear of ship, right looking forward and left 
looking forward respectively. 

As you move it is a good idea to draw a map. This map will help 
you to find your way around or identify locations that you have not 
yet visited. 

Two-word instructions such as 'Take bucket' are accepted or the 
direction may be shortened to FOR, AFT, STA and POR. Adventures 
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often require the player to enter ^INVENTORY 1 to see what is being 
carried. In this adventure the inventory is permanently displayed. 
One of the enjoyable (but often frustrating) aspects of adventures is 
trying lots of different 'verbs' to see if they have any effect! Common 
verbs for adventures are: get, take, down, up, climb and unlock. 
Whilst you are on board, try lots of different ones. Try 'Examine cat' 
at the right time and see what happens. 

Once you have solved the adventure invite others to play it. It is just 
as satisfying watching someone else make the same mistakes and 
perhaps have the same success as you. 

1 REM <<< Marie Celeste <> ISSI/JIM >>> 

2 REM 

500 GOTO 29000 

1000 RESTORE 1200 

1010 FOR n=i TO 6 

1020 FOR m=2 TO 40 

1030 READ a: LOCATE m,n 

1040 PRINT CHR*<a>; 

1050 NEXT m 

1060 NEXT n 

1100 RETURN 

1200 DATA 158,154,158,154,156,32,32,32,3 

2 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 ,32,1 50 , 1 

54 , 1 56 , 32 , 32 , 32 , 1 56 ,32,32, 32 , 32 , 32 , 32 , 1 4 

9 , 32 , 32 , 32 , 32 , 32 

1210 DATA 149,32,149,32,149,32,32,32,32, 

32 , 32 , 32 , 32 , 227 , 32 , 32 , 32 , 32 , 32 ,32,1 49 , 32 

, 149,32,32,32, 149,32,32,32,32,32,32, 151 , 

154 , 32 , 32 , 32 , 32 

1220 DATA 149,32,149,32,149,32,150,154,1 

56,32, 158, 154, 156, 158,32, 150 , 154 , 156, 32 , 

32 , 149 , 32 , 32 , 150 , 154 , 156, 149 , 150 , 154 , 156 

, 150, 154, 156, 149,32, 150, 154, 156,32 

1230 DATA 149,32,149,32,149,32,32,32,149 

, 32 , 149 , 32 , 32 , 1 49 , 32 , 15 1 , 154 , 153 , 32 , 32 , 1 

49,32,32, 151 , 154 , 153 , 149 , 151 , 154, 153, 149 

,32,153,149,32,151,154,153,32 

1240 DATA 149,32,149,32,149,32,150,154,1 

57 , 32 , 1 49 , 32 , 32 , 1 49 ,32,149, 32 , 32 , 32 , 32 , 1 

49 , 32 , 32 , 1 49 , 32 , 32 , 1 49 , 1 49 , 32 , 32 , 1 47 , 1 54 

, 156, 149,32, 149,32,32,32 

1250 DATA 155,32,155,32,155,32,147,154,1 

55,32 , 155 , 32 , 32 , 155 , 32 , 147 , 154, 153 , 32 , 32 
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,147,1 
,147,1 

1500 R 
19930 

20000 
20010 

20020 
20030 
20040 
20050 
20060 
20070 
20080 

20100 

20980 

21000 
2101 

21020 
21030 
21 100 
21110 
21120 
21 125 
2 1 1 30 
21140 
21150 
21160 
21170 
21180 
21200 
21205 
21210 
21215 
21220 
21225 
21230 
21235 
21240 
21245 
21250 
21255 
21260 
21265 
21270 
21275 



54,153,147,154,153,155,147, 1! 

54, 153, 147, 153, 147, 154, 153 

ETURN 

R E M > > > > > > > > > > screen < < < < < < • 

INK 0,3: INK 1,20: INK 2,0: INK 

MODE 1 

BORDER 0: PAPER 2: PEN 

WINDOW #1 , 1 ,30,8, 16 

WINDOW #2, 1 ,30, 17,25 

WINDOW #3,31 ,40,8,25 

PAPER #1,0:PEN #l,l:CLS 

PAPER #2,2: PEN #2,3:CLS 

PAPER #3,3: PEN #3,0:CLS 

RETURN 
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24 



i:CLS 



#1 
#2 
#3 



REM 
DIM 
DIM 
DIM 
DIM 



initialise <<<<<<<< 



d ( 10,7 > 

o*( 11) 

m ( 1 , 4 > 

o(ll) 

RESTORE 21200 

FOR n=l TO 10 

READ d < n , 1 > , d ( n , 2 > , d ( r. , 3 > , d ( 
READ d(n,5> , d(n ,6) ,dCn,7> 
READ m(n , 1 > , m(n ,2) , m(n , 3} ,m< 
NEXT n 

FOR n=l TO 11 
READ o$(n) ,o(n) 
NEXT n 
RETURN 

DATA 1 ,8, 10, 1 1 ,20,0,0 
, , , 



n,4 
n,4 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



12,36,23,0,0,0,0 

1,1,0, 

13,16,1 ,29,4,30,20 

1,0,1,0 

13, 14,3,23,0,0,0 

0,1,1, 

1,13,35,3,33,0,0 

0,1,0, 

1,8,9,11,20,0,0 

0,0,0, 

2 , 30 , 20 ,13,15,22,16 
1,0,1,1 

5,30,20,0,0,0,0 
0,0,1, 
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21280 
21285 
2 1 290 
21295 
21300 
21310 
21320 
21330 
21340 
21350 
2 1 360 
21370 
21380 
21390 
21400 
21980 
22000 
22010 
22020 
HT> a* 



0,0,1, 
KNIFE, 6 
TARPAULIN, 1 
WATER ON DECK,; 
ROPE, 6 
NOTE, 8 
BUCKET, 4 
KEY,® 
CAT , 9 
MOP, 5 
WELLIES, 5 
HOOKS, 



DATA 1,8,34,29,5,0,0 

DATA 1,0,0,1 

DATA 1,17,27,33,3,30,20 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM > > > > > > > > > > i r» P u t < < < < < < < < < < < < 

m*= n " : PRINT #2: PRINT #2, M >"5 

a$=INKEY*:a*=UPPER$<a$> 

IF (al^/'A" OR a$>"Z n )AND a*<>" " A 

:>CHR*<13> AND a*OCHR*<127) THEN G 
OTO 22010 

22030 SOUND 1,150,2,15 

22035 IF a*=CHR*<;i27> AND m$= ,,n THEN GOT 
22010 

22040 IF a$=CHR*<;i27) THEN m* = LEFT$<m* , L 
EN(m*>-l>:PRINT #2 ,CHR*<8> ; " ";CHRS<8>;: 
GOTO 22010 

22050 IF a*=CHR*<13> THEN PRINT #2,CHR*< 
13>:RETURN 
22060 m$=m$+a$ 
22070 PRINT #2,a$; 
22080 GOTO 22010 

22980 REM > > > > > > > > > inventory < < < < < < < < < 
23000 CLS #3 
23010 PRINT #3," INVENTORY-"; 

23020 PRINT #3," " 

23030 PRINT #3 SPRINT #3 

23040 FOR n=l TO 11 

23050 IF o<;n} = 13 THEN PRINT #3,o$<n> 

23060 NEXT n 

23070 RETURN 

23980 REM > > > > > > > > > > > split < < < < < < < < < < < 

24000 v$=" " :n*= n " 

24010 FOR n-1 TO LENO*} 

24020 IF MID*<m*,n,l>= M " THEN GOTO 2406 
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24030 NEXT n 

24040 v$=m$ 

24050 RETURN 

24060 v*=LEFT*<:m*,ri-l} 

24070 n*=R IGHT* ( m* , L EN ( m* ) -n > 

24080 RETURN 

2 4 9 8 R E M >■ > > > > > > > > > comma n d • 

25000 GOSUB 22000 

25010 GOSUB 24000 

25020 C*=LEFT*<v*,2> 



25030 


IF 


C*= 


npQii 


THE 


:n GOSUB 


30000 




25040 


IF 


C*= 


"ST" 


THEN GOSUB 


3 1 000 




25050 


IF 


c*= 


"FO" 


THEN GOSUB 


32000 




25060 


IF 


c*= 


"AF" 


THEN GOSUB 


33000 




25070 


IF 


c*= 


"GE" 


OR 


C$="TA M 


THEN GOSUB 


:\ 


4000 
















25080 


IF 


c*= 


"GO" 


OR 


C*= ,, EN" 


THEN GOSUB 


•j> 


5000 
















25090 


IF 


c*= 


"EX" 


OR 


C*=" IN" 


OR C$^"RE" 


T 


HEN GOSUB 36000 










25100 


IF 


c*= 


"UN" 


OR 


C$="OP" 


THEN GOSUB 


^r 


7000 
















25110 


IF 


c*= 


"CU" 


THEN GOSUB 


38000 




25120 


IF 


c*= 


"CL" 


THEN GOSUB 


39000 




25130 


IF 


c*= 


"KI" 


THEN GOTO 40000 




25140 


IF 


c*= 


"LO" 


THEN GOSUB 


40500 




25150 


IF 


c*= 


"SH" 


OR 


C*="FU" 


OR C*="RA" 


T 



HEN GOSUB 41000 

25160 C*=LEFT*<V*,3> 

25170 IF C*="SWA" OR C*= ,, MOP" THEN GOSUB 

42000 
25180 IF 

43000 
25190 IF 
25200 I F 



C*="MQV" OR C*="LIF" THEN GOSUB 

V*="QUIT" THEN GOTO 44000 
v*=" "" THEN GOTO 25220 



5210 PRINT #2," I don't understand - 



^.^J^jC 



GOSUB 28000 : GOSUB 23000 



25230 GOTO 



-1000 



25980 REN >>>>>>>: 
26000 GOSUB 27000 
260 1 GOSUB 20000 
26015 GOSUB 1000 
26020 GOSUB 21000 



start 
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26030 
26040 



GOSUB 
po=6 



\0)(b(b 



26100 RETURN 



stri n g s 



26980 REM 

27000 DIM w*<36) 

27010 RESTORE 27060 

27020 FOR n=l TO 36 

27030 READ w*<n> 

27040 NEXT n 

27050 RETURN 

27060 DATA I AM , ASTERN , FORARD 

ARBOARD ,UP , DOWN , IN A , SMALL 



, PORT v 
, LARGE 



7070 DATA "BOAT, ALONGSIDE " , THERE IS , 
THE WIND , HOWLS , SINGS 
270S0 DATA SOUNDS LIKE LAUGHTER. , OUTSIDE 

, INSIDE , IT IS ,THE MARIE CELESTE- 
27090 DATA A , AND , HERE-, AND I , SLIDE ,A 
CROSS , LOCKED , UNLOCKED , TO ,OF , IS ,1 S 
EE , STORES. 

27100 DATA GAP ,THE , WATER ON THE DECK-, 
DEVIL, BERMUDA TRIANGLE , ATLANTIS 
279 3 R E M > > > > > > > > > desc r i b e < < < <^ < < < < < < 
23000 CLS #1 

23005 IF po=2 AND o(10><>13 THEN PRINT # 
2, "You si ip through to the" :PRINT #2, H ne 
xt deck section l " : po=3 : SOUND 2,300,10,1 

5 

23007 IF po=l AND o<2)=0 THEN GOTO 45000 

23010 FOR n=l TO 7 

23020 PRINT #l,w$(d(po,ri));" "; 

23030 NEXT n 

23040 PRINT #1 

23050 PRINT #1 

28060 PRINT #1," I can see -" 

23070 FOR n=l TO 11 

23080 IF o<n)=po THEN PRINT # 1 , o$ (n ) ; " , 



28090 NEXT n 

28100 RETURN 

28980 R E M > > > > > > > > b e g i n game < < < < < < < < < 

29000 GOSUB 26000 

29010 GOSUB 28000 

29020 GOTO 25000 

29980 r E M > > > > > > > > > commands < < < < < < < < < < 
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30000 V^" " " 

30010 IF m(po,4)<>0 THEN GOTO 30020 

30015 PRINT #2, "You cannot go that way-" 

: RETURN 

30020 IF m<po,4)=l THEN po=po-5: RETURN 

30030 a=m(po , 4> - a = a-l : IF o <a>-13 THEN PR 

INT #2, "You use the "; o*<a) : PRINT #2," an 

d go to port." ELSE GOTO 30015 

30040 FOR n=l TO 3000: NEXT n 

30050 po=po-5: RETURN 

31000 v$^" - " 

31010 IF m(po,2)<>0 THEN GOTO 31020 

31015 PRINT #2, "You cannot go that way-" 

: RETURN 

31020 IF m(po ,2>»1 THEN po-po+5: RETURN 

31030 a=m<po,2> :a=a-l s IF o(a>=13 THEN PR 

INT #2, "You use the " ; o*<a) : PRINT #2, "an 

d go to starboard." ELSE GOTO 31015 

31040 FOR n~l TO 3000= NEXT n 

31050 po=po+5: RETURN 

32000 v*=" " " 

32010 IF m(po,l)<>0 THEN GOTO 32020 

32015 PRINT #2," You cannot go that way." 

: RETURN 

32020 IF m<po,l}=l THEN po=po+l : RETURN 

32030 a=ffl(po,l):a=a-l:IF o(a)=13 THEN PR 

INT #2, "You use the M ; o*(a> s PRINT #2, "an 

d go to forard." ELSE GOTO 32015 

32040 FOR n=l TO 3000: NEXT n 

32050 po=po+l sRETURN 

33000 v*=" '* " 

33010 IF m(po,3><>0 THEN GOTO 33020 

33015 PRINT #2, "You cannot go that way." 

: RETURN 

33020 IF m<po,3>=l THEN po=po-l : RETURN 

33030 a=m<po,3> :a=a-l : IF o(a>=13 THEN PR 

INT #2, "You use the "5 o*<a) : PRINT #2, "an 

d go to aft." ELSE GOTO 33015 

33040 FOR n~i TO 3000: NEXT n 

33050 po=po-l : RETURN 

34000 v$= n " " 

34010 FOR n=l TO 10 

34020 IF n*=o*<n> THEN GOTO 34060 

34030 NEXT n 
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34040 PRINT #2, "Don't be silly ! n 

34050 RETURN 

34060 IF n=4 THEN PRINT #2 , " I t ' s tied to 

o tightly for- me ! M :RETURN 

34070 o<n)=i3 

34080 PRINT #2," You take the " ;o*<n> 

34090 RETURN 

35000 v$= M " " 

35010 IF n*O"ST0RE" AND N*O"ST0RES" TH 

EN PRINT #2, "You cannot go there - - . " : 

RETURN 

35020 IF m(10,4)=0 THEN PRINT #2 , " I t ' s 1 

ocked ! ": RETURN 

35030 po=5 = RETURN 

36000 v$~" " " 

36010 FOR n=l TO 11 

36020 IF ri* = o*<;n) THEN GOTO 36060 

36030 NEXT n 

36040 PRINT #2," I don't see that here-" 

36050 RETURN 

36060 IF r.= l THEN PRINT #2 , " 1 1 ' s sharp ! 
it 

36070 IF n=2 THEN PRINT #2, "It's green ! 

it 

3608O IF n=3 THEN PRINT #2, "It's wet & s 

alty !" 

36090 IF n=4 THEN PRINT #2, "It's tied ti 

ghtly." 

36100 IF n=5 THEN PRINT #2 , " I t says -":P 

RINT #2, "'No need to go be low" : PRINT #2, 

"decks in this game-'" 

36110 IF n=6 AND o<7>=0 THEN PRINT #2," I 

t's rattling !":o<7>=po 

36120 IF n=6 AND o(7><>0 THEN PRINT #2," 

It's empty ! " 

36130 IF n=7 THEN PRINT #2, "It says 'STO 

RE'" 

36140 IF n=8 THEN PRINT #2, "It runs off 

with a dead rat . " : o <8>=0 

36150 IF n=9 THEN PRINT #2 , " I t ' s soggy ! 

II 

36160 IF n=10 THEN PRINT #2, ,, The , re smel 
ly ! " 

36170 IF N=ll THEN PRINT #2,"They seem t 
o be for a rope ! " 
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36180 RETURN 
37000 v$~" '" " 
37010 IF po<>10 THEN PRINT #2 , " I can't . 

. ": RETURN 
37020 IF o(7)<>13 THEN PRINT #2 , " I have 
no key ! " : RETURN 

37030 m<po,4>=l : PRINT #2, "The store is o 
pen - " 

37040 d< 1 , 3) =23 : RETURN 

3S000 v*="- M :IF o(l)<>13 THEN PRINT #2," 
With what ?" : RETURN 

38010 IF ri* = o*<4> THEN GOTO 38040 
38020 PRINT #2, "You sadist !" 
38030 RETURN 

38040 PRINT #2, "You cut the rope and tak 
e it." 

ZBQ)^Q) o<4) = 13 
38060 RETURN 

39000 v$="'":IF n$Oo$<4) THEN v$="Br' :R 
ETURN 

39010 IF o(4)Opo AND o(4)<>13 THEN PR IN 
T #2, "Where's the ladder ?": RETURN 
39020 PRINT #2, "You c 1 imb the rope ladde 
r - " 

39030 IF po=6 THEN po=7 : o<4>=7 : RETURN 
39040 IF po=7 THEN po=6 : o <;4>=6 : RETURN 
39050 IF po=l THEN po=2 : o<4}=2: RETURN 

39060 RETURN 

40000 PRINT #2," An Albatross flies down 

40010 PRINT #2, "and attacks you for " 

40020 PRINT #2 , "being de struct i ve - " 

40030 PRINT #2," You Are Dead ! " 

40040 FOR n=l TO 5000 

40050 NEXT n 

40060 SOUND 1 , 350 ,10,15 

4 7 G T 44 

40500 V*=""" 

40510 PRINT #2: PRINT #2, "EXITS ARE ;" 

40520 IF M ( PO , 1 > < >0 THEN PR INT #2 , " F ORAR 

D " ; 

40530 IF M<PO,3)<>0 THEN PRINT #2, "AFT " 

40540 IF li<PO,2><>0 THEN PRINT #2,"STARB 
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OARD "; 

40550 IF M<PO,4><>0 THEN PRINT #2, "PORT- 

li 

40560 IF m<"po,l)=0 AND m(po,2)=0 AND m<p 
o,3>=0 AND m<po,4)=0 THEN PRINT #2, "NONE 

ll 

40570 PRINT #2 
40530 RETURN 

41000 V$=" " " 

41010 PRINT #2," Not now Sailor ! " 

41050 RETURN 

42000 v*^" '* M 

42010 IF o<6><>13 OR o(9)<>13 THEN PRINT 

#2, "With what you fool - - . ":RETURN 
42020 IF po<>2 THEN PRINT #2, "Not here y 
ou idiot - . ":RETURN 

42030 o<3)=0: PRINT #2, "Well done ! Now i 
t is safe ■ " sm(2 , 3>=5 

42040 d < 2 , 1 > = 1 : d ( 2 , 2 > =2 : d ( 2 , 3 > =20 : d < 2 , 4 ) 

=32 : d ( 2 , 5 > =2 1 : d < 2 , 6 > = 1 1 : d ( 2 , 7 > =0 

42050 o<ll>==2: RETURN 

43000 v$=" "' " 

43010 FOR n=l TO Kb 

43020 IF n$=o$(r.) THEN GOTO 43060 

43030 NEXT n 

43040 PRINT #2, "Move what ? ! ? M 

43050 RETURN 

43060 PRINT #2, "You move it, and the" 

43070 PRINT #2, "wind blows it away !" 

43080 o<n>=0 

43090 RETURN 

44000 CLS #3: CLS #2 

44010 PRINT #2, "Another Game ?" 

44020 GOSUB 22000 

44030 IF m$="YES" THEN RUN 

44040 PRINT #2 , "Wei 1 you're p laying anyw 

ay ! " 

44050 FOR n= 1 TO 2500 

44060 NEXT n 

44070 RUN 

45000 CLS #1 

45010 PRINT #1 , "SURPRISE ! M : PRINT #l,"We 

hid in " ; w*<21 ) ; " ";w$(il); M M ;w*<20> 
45020 PRINT ttl/'We thought You would" 
45030 PRINT #1, "NEVER solve the adventur 



e 



t " 



45040 GOTO 44000 



Please Sir 




A Teaser for Everyone 

This program is not quite what it seems! You may think that you are 
able to guess what the secret of the program is as you enter it, but you 
will still find the game a challenge when you play it. 

The idea is that the on-screen 'teacher 1 selects a subject and you 
must then give examples which fit the subject. For example, if 'Films' 
was displayed then you might enter 'Please sir, is SUPERMAN one?' 
and teacher may say 'yes 1 or 'no'! You must try to decide why and then 
enter another example such as 'STAR WARS' to which the reply will 
once again be 'yes' or 'no'! The game continues until you achieve three 
'yes' replies in a row, when it is assumed that you have realised why 
some get a 'yes' and others 'no'. You can cheat, but that most certainly 
would be a shallow victory. 

Later, when you have mastered playing the program, you may 
wish- to change the rules or add more subjects, and that may be a 
challenge in itself! 

Invite a friend to list the program, and he may be surprised to find 
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that there is a distinct lack of data, whereupon you may either give 
your own reason or offer the following test of gullability: 

The program uses an advanced text compacting system based 
upon the mathematical characteristics of letters within English 
words. Thus, careful selection of parameters enables specific target 
answers to be 'tuned' into apparently imprecise test routines. 1 

Of course, you will know differently, because you typed in the lines 
which verify the entries! Why then, is a correct answer for the 'Birds' 
category: Sparrow, Chaffinch and Swallow? 

1 REM <<<< please sir < > ISSI/JIM >>>>> 

2 REM 

500 SYMBOL 240,123,64,32,24,6,15,112,123 

510 SYMBOL 241,1,3,7,31,127,255,15,1 

1000 GOSUB 40500 

1050 go=0 

110 GOSUB 2 

1150 GOSUB 22000 

1 160 GOTO 24000 

19980 REM > > > > > > > > > > scree n < < < < < < < < < < < 

20000 MODE 

20010 PAPER 0:PEN 1: BORDER fc:CLS 

20020 W I NDOW #1,13,19,2,9 

20030 WINDOW #2,13,19,11,14 

20040 WINDOW #3,13,19,16,22 

20050 WINDOW #4,2,11,14,23 

20055 WINDOW #5,2,11,21,22 

20060 RESTORE 20000 

2 7 F R n = T 1 5 

20080 READ a: INK n,a 

20090 NEXT n 

20100 PAPER #1,3: PEN #1,4:CLS #1 

20110 PAPER #2,2: PEN #2,3:CLS #2 

20120 PAPER #3,&:PEN #3,l:CLS #3 

20130 PAPER #4,9: PEN #4,4:CLS #4 

20140 PAPER #5,9:PEN #5,4:CLS #5 

20150 LOCATE 6,12:PRINT CHRS(240> 

20160 PLOT 156, 208: DRAW 40 ,208: DRAW 24,2 

30 

20170 DRAW 24, 350: DRAW 40,372: DRAW 140,3 

72 



Please Sir 25 

20180 DRAW 156 ,330: DRAW 156,225 

20190 PLOT 35,350, 13 s DRAW 35,290: PLOT 65 

,350: DRAW 65,230 

20200 PLOT 107, 350: DRAW 77 , 350 : DRAW 77,2 

30: DRAW 107,230 

20210 PLOT 150,350, 14: DRAW 120, 350: DRAW 

120, 290: DRAW 150,290 

20220 DRAW 150, 230: DRAW 120,230: PLOT 39, 

230: DRAW 61 ,230 

20230 PLOT 39,290:DRAW 61,290:PLOT 77,29 

0:DRAW 107,290 

20240 PLOT 107,350, 15: DRAW 107,230 

20250 PLOT 135,343: DRAW 135, 255: PLOT 135 

,240: DRAW 135,232 

20260 PLOT 35, 232: DRAW 35,238: PLOT 39,34 

8: DRAW 63,232 

20270 PLOT 1 35 , 290 , 1 3 

20280 PEN 9: LOCATE 1,23: PRINT CHR*<24i> 

20290 PEN 1 

20300 LOCATE #1,1, 3: PR I NT #1," GUESS A" 

20310 LOCATE #2,2,1:RRINT #2, "TOTAL" 

20320 LOCATE #3,2,2: PRINT #3, "GAMES" 

20330 LOCATE #3,3,4:PRINT #3, go 

20340 LOCATE #4,1,2:PRINT #4, "PLEASE SIR 

" : PRINT #4, "IS IT- - 

20350 PLOT 290,210 

20360 DRAW 275, 250: DRAW 285,260 

20370 DRAW 290,310: DRAW 235,320 

20380 DRAW 260, 340: DRAW 230,335 

20390 DRAW 220, 320: DRAW 220,310 

20400 DRAW 230 , 305 : DRAW 220 , 300 

20410 DRAW 2 15, 280: DRAW 220,232 

20420 DRAW 2 16, 275: DRAW 230,270 

20430 DRAW 2 16, 265: DRAW 220,260 

20440 DRAW 216,256: DRAW 216,250 

20450 DRAW 220, 246: DRAW 260,248 

20460 PLOT 240, 246: DRAW 230,210 

20470 TAG #7: MOVE 220,312 

20474 PRINT #7 , CHR*<;240> ; 

20475 MOVE 250,305 

20478 PRINT #7 ,"?";: TAGOFF 
20480 PLOT 225, 308: DRAW 220,300 
20485 GOSUB 21500 
20490 RETURN 
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^0500 DATA 6,24,2,18,1,0,15,16 

20510 DATA 4,21,9,17,7,6,6,6 

20980 REM 

20990 REM * * * 'YES' * * * 

21^00 INK 13,24: INK 14,24: INK 15,fa 

21010 FOR n=500 TO 100 STEP -~2WW 

2 1 020 SOUND 2 , n , 50 , 1 2 

21030 NEXT n 

21050 win=win+l 

21200 RETURN 
21480 REM 

21490 REM * * * 'NO' * * * 

21-.0* INK 13,24: INK 14,6= INK 1,,^ 

21510 FOR n=200 TO 600 STEP W* 

2 1 520 SOUND 2 , n , 50 ,12, , W , 1 

21530 NEXT n 

21550 win=0 

21700 RETURN ,,,,,,.,,■ 

21980 REM »»»>» start game ^^-^ 

22 tototo win=0: go=go+l 

2^-0 1<7> 5 = INT<RND<1)*20> + 1 

2^020 LOCATE #1,1,5:PRINT #l,s*<s> 

-• 2 (')3<5> LOCATE #2,3,3:PRINT #^,tr_ 

22<*4<> a=t < s , 1 ) : b = t < s , 2> : c = t (. s , ..-.) 

--•osft DEF FN ok=ASC(LEFT$<:a*,l.>.) 

22060 ?F a-2 THEN DEF FN ok=ASC< RIGHTS. a 

X^l IF a-3 THEN DEF FN ok=ASC<NID*<.a* , 



^.JL 



02(^=0 IF a=4 THEN DEF FN ok=LEN<a*> 
--•<j>Q(/> IF a=5 THEN DEF FN ok = sp+b 
22100 IF t-2 THEN DEF FN ok-ASC<LEFT*CRI 
GHT*Ca*,2> ,1>> 

22250 RETURN •,,,<••,•<- 

22980 REM »»»»»» i"P ut ^ w ^" 

23000 a*= sp=0 

23010 CLS #5: PR I NT #5, a* 

2W20 w $=INKEY*:w*=UPPER*(w$.) 

-30-=i IF w*=" " THEN S p = sp+1SGUTU 2o.tf6*> 

2**£ IF w*=CHR*<13> THEN GOTO 2313W 

2W« IF w*=CHR*<;i27> AND LEN<a*; f THEN 
l*=LEFT*<a*,LENCa*>-l>:GOTO 23»7<* 

2?050 IF i;<"A« OR w*>"Z» THEN GOTO 23*2 



23060 a$=a$+w$ 
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23070 SOUND 2 , 200 ,10,12: GOTO 230 1 

23130 a=LEN<a*> 

23140 IF a< 1 THEN GOTO 23000 

23 1 50 SOUND 1 , 400 , 50 , 9 : SOUND 1 , 200 , 20 , 9 

23160 re~FN ok 

23250 RETURN 

23980 REM > > > > > > > > > > > > loo p < < < < < < < < < < < 

2 4 G O S I J B 2 3 

24005 IF aS^'QUIT" THEN RUN 

24010 IF re=c THEN GOSUB 21000 ELSE GOSU 

B 21500 

24020 LOCATE #2,3,3: PRINT #2, win 

24030 IF win=3 THEN GOTO 25000 

24250 GOTO 24000 

24980 REM >>>>>>>>>>>> win <<<<<<<<<<<< 

25000 MODE 1 

25010 LOCATE 12,3: PRINT "CONGRATULATIONS 

25020 LOCATE 11, 4= PR I NT STRINGS 18 , 45) 

25030 LOCATE 9, 10: PRINT "You solved the 

puzzle ! " 

25100 LOCATE 8,23: PRINT "Press 'Y' to pi 

ay again" 

25110 a*=INKEY*:a*=UPPER*<a*} 

25120 IF a*= ,l Y n THEN GOTO 1100 

25130 GOTO 25110 

39980 REM > > > > > > > > > > subjects < < < < < < < < < 

40000 DATA DOG, ACTOR, STAR, TV PROG,FILM,P 

LAY, SONG 

40010 DATA MICRO, COLOUR, FLOWER, TREE, GEM, 

BOOK, SPORT, BE AST, BIRD, PL ACE 

40020 DATA FISH, NAME, CAR 

40050 DATA 2,1,78,1,2,82,3,2,79,5,1,2 

40060 DATA 1,1,83,5,0,0,5,5,6,4,1,8 

40070 DATA 4,1,4,2,1,80,4,1,3,2,1,68 

40080 DATA 5,2,4,3,3,67,3,4,83,3,3,65 

40090 DATA 2,1,82,3,2,65,3,2,65,4,1,6 

40500 RESTORE 40000 

40510 DIM s* (20) 

40520 FOR n=l TO 20 

40530 READ s*<n> 

40540 NEXT n 

40550 DIM t<20,3> 

40560 FOR n=l TO 20 

40570 READ t (n , 1 > , t <n , 2) , t (n , 3) 

40580 NEXT n 



I Accuse 




A Suspicious Listing 

This is a test of deduction which will challenge all budding sleuths. 

You are Inspector Watkins of CID (Computer Investigations 
Department) and are presently undertaking an extensive training 
course. This training is designed to test your courage and endurance. 
The course also tests your intelligence and ability to use the computer 
in criminal detection. Since we cannot cover the courage and 
endurance section in this book, we have included the computer 
deduction test. 

The computer has the ability to generate thousands of different 
permutations from a set of data. In the blink of an eye it will decide on 
the criminal and his corroborative details, together with the 
statements of a witness that will conclusively point out the guilty 
party. You are allowed to ask for only six sets of details. This is done 
by entering the number corresponding to the category on the left of 
the screen. The computer will display them and then display the 
statements of key witnesses. This could be enough to identify the 
correct suspect, if you requested the right data! 
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The number of the suspect that you believe to be the criminal is 
entered and the accuracy of your judgement is reported back. 

This program could well have educational value, but most of all it 
is designed to be different and fun. 

1 REN <<<<<< I ACCUSE ISSI/JIM >>>>>>> 

2 REM 

1 000 GOSUB 22000 

1 200 GOSUB 20000 

1 500 GOSUB 2 1 000 

1600 FOR g=l TO 6 

1610 GOSUB 23000 

1620 NEXT g 

1630 CLS #2: PRINT #2, "You must now enter 

the n umb e r of t h e suspect you consid 
er* to have commited the crime-" 
1640 PRINT #2«PRINT #2," The witness s 
aid that ....'■ 
1650 RESTORE 1700 
1660 FOR n=l TO 10 
1670 READ a* 

1630 IF w<l}-n OR w<2)=n OR w<;3)=n OR w< 
4>=n THEN PRINT #2, "The criminal " ; a* ; " 
" J5$(s,r.) 
1690 NEXT n 

1700 DATA was a,was,was,'s hair wash's h 
air was, wore a,'s shoes were,'s eyes wer 
e,'s nose was, had a 
1710 RESTORE 1720 
1720 FOR n=l TO 12 
1730 READ a, b: SOUND 2,a,b,15 
1740 NEXT n 

1744 DATA 100,25,200,25,300,25,400,25 
1746 DATA 200,25,300,25,400,25,500,25 
1748 DATA 300,25,400,25,500,25,600,25 
1750 a*=INKEY*:IF a$<"l" OR a$>"4" THEN 
GOTO 1750 
1760 cr=VAL<a*> 

1770 SOUND 2,600,50, 15: SOUND 2,400,50,15 
s SOUND 2 , 200 , 50 , 1 5 
1780 CLS #2 

1790 IF cr=s THEN GOTO 3000 
2000 PRINT #2,"You , re pathetic, 'Inspect 
or* Watkins - No ! I will demote you to 

P-C Watkins! " 
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2010 PRINT #2: PR I NT #2 

2020 PRINT #2, "It was suspect number " ; s 

3 " ! " 

2050 GOTO 3050 

3000 PRINT #2," Congratulations, Inspect 

or Watkins ! " 

3010 PRINT #2sPRINT #2, ,, You correctly cle 

duced the true criminal from the clues g 

3050 ^LOCATE 6,25: PRINT "Press any Key to 

Repeat Game" 
3060 CALL &BB03 

3070 a*=INKEY*:IF a*= IIM THEN GOTO 3070 
3080 SOUND 2 , 1 00 ,50,15 
3090 GOTO 1200 

1 9980 REM > > > > > > > > > > '> -s c re en< < < < < < < < < < <- < 
20)00)0 I NK 0,0=1 NK 1 , 20 : I NK 2,6:1 NK 3 , 26 
20010 BORDER 0: PAPER 0:PEN is MODE 1 
20020 WINDOW #1,10,40,3,12 
20030 WINDOW #2, 1,40, 15, 2d 
20040 PAPER #1,0= PEN #1,1:CLS #1 
20050 PAPER #2,0: PEN #2,3:CLS #'2 
20060 PEN 2sno=l 
20070 FOR n=12 TO 36 STEP 8 
20030 LOCATE n, is PRINT no 
20090 no=riO+l 
20100 NEXT n 
20110 RESTORE 20100 
20120 FOR n=3 TO 1^ 
20130 LOCATE 1 ,n 
20140 READ a*: PRINT a* 
20150 NEXT n _^ 

20160 DATA 0-SEX,l-BUILD,2-HEIGHT,o.~HAIR 

,4-"C0L,5-ATTIRE,6-SH0ES,7-EYES,3»N0SE, 

9-SPECIAL 

20170 PRINT #2,"Choose your question <.0™ 

9>. ..." 

20500 RETURN 

20980 REM >»»»»»set up<<<<<<<<<<^ 

21000 RANDOMIZE TIME 

21010 s=INT<RND<1>*4>+1 

21020 FOR n=l TO 4 

21022 w(ri>=0 

21024 check=0 

21025 a=INT<RND<l>*10)+l 
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21030 FOR q=l TO 4 

21032 IF w<q)=a THEN check=l 

21034 NEXT q 

21035 IF check=l THEN GOTO 21024 
21037 w(n>=a 

21040 NEXT n 

21050 FOR n=l TO 10 

21060 FOR q=i TO 4 

21070 a=INT<RND(l>*4)+l 

2 1 030 s* < q , n ) = 1 * ( n , a > 

21090 NEXT q 

21100 NEXT n 

21105 ri=w<l> sGOSUB 21 150 : n~w<2} : GOSUB 21 

150 

21110 n=w<3>:GGSUB 21 150 s n=w<4> : GOSUB 21 

250 

21120 RETURN 

21150 RANDOMIZE TIME : a=INT<RND< 1 }*4>+l 

21 160 s*<s ,ri> = l*<n ,a> 

21170 t=s+2sIF t>4 THEN t = t-4 

21 130 s*< t ,n> = l*<n ,a) 

21190 IF aOl THEN b = a-l ELSE h=4 

21200 t=t-2sIF t<l THEN t = t+4 

21210 5*<t,n) = l*<;ri,Jb.) 

21220 t=t-2:lF t< 1 THEN t=t+4 

2 1 230 s* C t , n > = 1 * < n , b > 

21240 RETURN 

21250 RANDOMIZE TIME : a= INT (RND< 1 >*4>+l 

21260 s$(5 ,n>= s l*<ri ,a) 

21270 IF sOl THEN t = s-l ELSE t=4 

21280 s*<t,n) = l*<;ri 1 a> 

21290 IF a<>4 THEN b = a+l ELSE b=l 

21300 t=t-l:lF t=0 THEN t=4 

2131 s* < t , n ) = 1 * < n , b > 

21320 t=t-l:IF t=0 THEN t=4 

21330 s*<t,n)==l*<n,b) 

21340 RETURN 

21500 DATA MAN, BOY, WOMAN, GIRL 

21510 DATA FAT, THIN, SLIM, STUBBY 

21520 DATA TALL , LARGE , SHORT , STOOPED 

21530 DATA NORMAL , SHORT , CURLY , LONG 

21540 DATA BROWN, BLACK, BLONDE , GINGER 

21550 DATA JEANS , SUIT , JACKET , CLOAK 

21560 DATA PUMPS, BOOTS, SANDLES, WELLIES 

21570 DATA BLUE , BROWN , GREEN , HAZEL 
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21580 

21590 

21600 

219S0 

22000 

22010 

22020 

22050 

22060 

22070 

22080 

22090 

22100 

221 10 

22150 

22980 

23000 

230 1 



23020 

23030 

23035 

23040 

23050 

23060 

23070 

23200 



DATA SMALL , LARGE , BROKEN, CROOKED 

DATA TATOO , FRECKLE , DAGGER , GUN 

RETURN 

REM > > > > > > > > > i n i t i a 1 i z e < < < < < < < < < < 

DIM s*<d f 10) 

DIM w(4> 

DIM 1*<10,4> 

RANDOMIZE TIME 

RESTORE 21500 

FOR n=l TO 10 

FOR m=l TO 4 

READ l*<n,m) 

NEXT m 

NEXT n 

RETURN 

REM > > > > > > > > > > quest io n < < < < < < < < < < < 

a*=INKEY*:a*=UPPER*Ca$:> 

IF a*<"0" OR a*>"9" THEN GOTO 2300 

qw=VAL<a*> 

qw=qw+l 

SOUND 2 , 6<Z)0-qw*50 ,25,1 5 

FOR pe=l TO 4 

LOCATE #l,pe*8-7,qw 
PRINT #1 ,s$(pe,qw) ; 
NEXT pe 
RETURN 



4 

Star Trek 




The Program that Goes Boldly On 

There have been versions of Star Trek written for just about every 
computer ever made. This says a lot for its attraction as a game and 
makes this the classic game. 

Now you can turn your Amstrad into a Federation Star Ship 
complete with scanners and phasers. Your mission is to clear the 
quadrant of the evil Klingons, without using up all your energy or 
being vaporised. 

This version incorporates a zooming star field and 'real time' 
action during encounters with the enemy or when docking with star 
bases. 

There follows an extract from the 32,544 page mega-manual 
entitled: 'How to be Captain of a Star Ship in 4000 easy lessons': 

1 . Keep calm. Remember the most you can lose is: your own life, 
20 billion Galactic Dollars worth of hardware and the lives of 
everyone in the known universe. 

2. Watch where you are going! Use the ship's eyes to reveal the 
nature of the universe. Pressing 'L' for Long Range Scan (LRS) will 
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display the position of your ship and the whereabouts of the enemy. 
Klingons are represented on the LRS by a circle with an arrow. This 
is the ancient symbol of Mars, the war bringer. 

Star bases are represented by a circle above a cross. This is the 
ancient symbol for Venus, the bringer of love. 

Those sectors which are occupied by both enemy and star bases 
have a square symbol in them. The square is an ancient symbol for a 
square. 

3. See what you can do? Pressing 'S' will activate the short range 
scanners. This indicates the total number of enemy and star bases in 
the present sector. 

4. Keep an eye on your energy. Docking with a star base will give 
you more. To dock press fc D' on your control panel. If there is a star 
base in that sector the docking sequence then requires you to steer 
your ship using left and right controls until the star base rests in the 
centre of your screen. Once docked you will receive 20 extra units to 
the overall ship's energy bank and a special 20 unit boost to your 
phasers and shields. Maximum capacity is 95 units. Failure to dock 
could result in the loss of the base. So be careful out there! 

5. Zap em\ Cap'n! A Star Fleet Captain has to do what he has to 
do, and that means eliminating the evil menacing Klingons. 

If there are Klingons around, hitting the *B' key sounds Battle 
Stations and you can start zapping. First get your enemy in the centre 
of the screen using the cursor pad or joystick. When you are ready, 
stab the copy key or fire button, sending phaser bolts out to destroy 
the target. 

If you are not successful quickly you will lose the element of 
surprise and they will start to shoot back, thus draining your shield 
power. Do not give in, keep zapping until the last one is cleared from 
the sector. Then move on to win more battles. 

6. Warp carefully. Movement to any sector is achieved by pressing 
'W followed by a number between 1 and 5. This is equal to the warp 
factor or distance you wish to travel. 

Next the warp direction is required. This is a number between 1 
and 8. Each number corresponds to a point on a compass, starting 
with one at the top and counting clockwise. Note: clocks have been 
retained in stardate 2806 to help Captains steer their Star Ships. 

7. The semi-final frontier. On commencement of mission you can 
select the level. The easy level has only 10 enemies to seek and destroy. 
The average level has 20 and the hard level has 30. 

As each level is completed, news of your success reaches Central 
Klingon Control and a replacement force, increased by 10 each time, 
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is sent out to do further battle. The ultimate challenge consists of 200 
adversaries to wipe out. Are you ready Captain? Then let 
programming commence ... 



star trek I SSI >>>> 
42 , 254 , 242 , 98 



1 REM <<<<<<< 

2 REM 
500 SYMBOL 240,7,98, 

DIM 5(15,2) 
MEMORY 39995 
addr=39999 : GOSUB 29500 
PRINT CHR*<23)?CHR*(1>; 
GOSUB 21000 
GOSUB 22000 
GOSUB 20000 
GOTO 4000 
a*=INKEY* 
IF a*="L" 
a*="S" 
a*= n W" 
a $=»D" 
a*="B" 



,7,0 



600 

6.10 
620 
650 

1000 
1 1 
1020 
1030 
2000 
20 1 

2020 
2030 
2040 
2050 
2080 
2090 

3000 
3010 
4000 
40 1 

4020 
4030 
4040 
4050 
4060 

5000 

6980 

7000 
7010 

7015 
7020 
7025 
7030 
7035 
7040 
7045 
7050 
7055 



IF 

IF 

IF 

IF 

FOR n = 

GOSUB 

IF a*= 



a*=UPPER*(a*> 
THEN GOSUB 23000 
GOSUB 24000 
GOSUB 25000 
GOSUB 26000 
GOSUB 27000 
n 



THEN 
THEN 
THEN 
THEN 
1 TO 30: NEXT 

11000 

" M THEN GOTO 2000 



IF dead-1 OR ener<l THEN GOTO 7000 

LOCATE 7,21: PRINT er.er 

LOCATE 7,23: PRINT shie 

LOCATE 7,25: PRINT phas 

LOCATE 17,21 : PRINT sec 

LOCATE 17,23sPRINT 

LOCATE 17,25:PRINT 

IF enem=al ien THEN 



enem 

s(sec,2) 
GOTO 10000 



GOTO : 

REM >: 

PAPER 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



t •• 



>000 

> > > > > > > > > > > d e a d 
is PEN 3:CLS 

Bad Luck 

THE" 



"St ars h i p En t e rp rise " 
" has been destroyed" 
"by the Kl ingons , but " 
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7060 PRINT " Admiral Sugar has" 

7065 PRINT 

7070 PRINT "decided to give you" 

7075 PRINT 

70S0 PRINT H just 1 more chance" 

7085 PRINT 

7090 PRINT "if you want to get " 

7095 PRINT 

7100 PRINT " your vengeance !" 

7110 LOCATE 3,25: PRINT "Any Key To Play" 

7120 a*=INKEY* 

7130 IF a*= l,n THEN GOTO 7120 

7140 GOTO 1000 

9980 REM >>> > > > > > > > > > n e >i t < < < < < < < < < < < 

10000 PAPER l:PEN 3:CLS 

10010 PRINT " Well Done," 

10020 PRINT:PRINT " Captain Kirk-" 

10030 PRINT: PRINT ■' Now you must fight" 

10040 PR I NT s PR I NT " a fiercer group of" 

10050 PR I NT: PR I NT ■' KLINGONS " 

10060 al ien=al ien+10 

10070 LOCATE 3,25: PRINT "Any Key To Play 



10080 
10090 
10100 

10980 

1 1000 
1101 
11020 
1 1030 

19980 

20000 

20020 
20030 
20035 
20040 
20050 
20060 
20070 
20080 
20090 

20100 
20110 

20120 



a*=INKEY* 

IF a$=" n THEN GOTO 10080 

GOTO 1010 

REM >>>>>>>>>> stars <<< 

INK clr,2 

clr=clr+l:lF clr-=13 THEN 

INK civ, 26 

RETURN 

REM > > > > > > > > > > scree u < < 

MODE 0:SPEED INK 10,10 

INK 0,0: INK 1,2: INK 2,3: 

INK 4,3: INK 14,2,24: INK 

WINDOW 

WINDOW 



clr = < 



14,2,24! 
20 , 1 , 2 
#2,2,13,3,19 



INK 3 
15,24 



,24 
16 



#1,1, 



WINDOW #3, 15, 19,5, 11 

WINDOW 

BORDER 

PAPER 

PAPER #2, 1 :PEN 

PAPER #3,2: PEN 

PAPER #4,2SPEN 

LOCATE 16,4:PRINT "LRS" 



#4,15,1 

0: PAPER 

#1 ,4:PEN 



9,13,19 
0:PEN 4i 
#1, l:CLS 



#1,: 
#3,: 
#4,: 



:CLS 
:CLS 
:CLS 



CLS 
#1 
#2 
#3 
#4 
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2O130 LOCATE 16,12:PRINT "SRS" 

20140 PEN 3 

20150 LOCATE 1,21: PRINT "ENERGY:" 

20160 LOCATE 1,23:PRINT "SHIELD:" 

20170 LOCATE 1,25: PR I NT » PHASOR : " 

20180 LOCATE 11, 21: PRINT "SECTOR:" 

20190 LOCATE 11,23:PRINT "ENEMY: " 

20200 LOCATE 11,25:PRINT "*-BASE:" 

20210 PEN 4 

20290 PR I NT CHR* ( 23 > ; CHR* ( © > ; 

20300 co 1=5 

20310 FOR n=l TO 12 

20320 PLOT 206+n* 16 , 230 , c o 1 

20330 PLOT 238~-n*16,230, col 

20340 PLOT 222,220+rr*12, col 

20350 PLOT 222,240-n*12, col 

20360 PLOT 206+n*16,220+rt*12, col 

20370 PLOT 206+n* 16, 240-n*12, col 

203S0 PLOT 238-n* 1 6 , 220+n* 1 2 , c o 1 

20390 PLOT 238-n*16,240-n*12, col 

20410 INK 13,2 

20420 PLOT 40, 110, 13: DRAW 200,220 

20430 PLOT 400 ,110,13: DRAW 250 , 220 

20440 col=col+l:lF col=13 THEN col=5 

20450 NEXT n 

20460 PEN #2,3 

20470 LOCATE #2,5, 12: PRINT #2 , CHR*< 147) ; 

CHR* ( 1 58 > ; CHR* < 1 58 > ; CHR* (153); 

20490 clr=5 

20500 PR I NT CHR* ( 23 ) ; CHR* < 1 > ; 

20510 RETURN 

20980 REM >>>>>>>>> difficulty <<<<<<<< 

21000 PAPER 0:PEN i:MODE 1 

21010 PRINT "Hard/Easy/Average ?" 

21020 a*=INKEY*:a*=UPPER*<a*> 

21030 IF a*="H" THEN al i en=20 :RETURN 

21040 IF a*="E" THEN al i en=10 : RETURN 

21050 IF a*="A" THEN al ien=15: RETURN 

21060 GOTO 21020 

21980 REM > > > > > > > > > initialize < < < < < < < < 

22000 RANDOMIZE TIME 

22010 FOR n=l TO 15 : s (n , 1 >=<3 : s (n , 2)=0 : NE 

XT n 

22020 FOR n-1 TO alien 
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22030 sec=INT<RND<l>*15)+l 

22040 IF s ( se c , 1 > >3 THEN GOTO 22030 

22050 s(sec,l)=5(sec,l)+l 

22060 NEXT n 

22070 FOR n=l TO 3 

220S0 po==INT<RND<: 1 >*15)+1 

22090 IF s(po,2)=l THEN GOTO 22080 

22100 s(po , 2) = 1 

22110 NEXT n 

22120 p has =25: ener=25 : bad=0 : shie=25 

22130 sec = INT<RND<; 1)*15)+1 

22140 enem-0 

22200 RETURN 

22 9 30 REM > > > > > > > > > long scan < < < < < < < < < 

23000 SOUND 2 , 200 , 25 , 1 5 : p o= 1 

23010 FOR n=l TO 3 

23020 FOR m=l TO 5 

23030 LOCATE #3 , m, r.*2 : PEN #3,3 

23040 IF po=sec THEN PEN #3,15:PRINT #3, 

CHR* ( 240 > s GOTO 23070 

23045 IF s<po,i;>>0 AND s(po,2) = l THEN PE 

N #3,4: PRINT #3 , CHR*(232) = GOTO 23070 

23050 IF 5<po,l>>0 THEN PRINT #3,CHR*(23 

4> :GOTO 23070 



3055 PEN #3, 14 
23060 IF s(po,2)=l THEN PRINT #3,CHR*(23 
5> 

23070 po=po+l 
23080 NEXT m 
23090 NEXT n 

23100 FOR n=l TO 7500: NEXT n 
23140 CLS #3 
23150 SOUND 2,200,25,15 
23 1 90 en e r=ener-6 
23200 RETURN 

23980 REM >>>>>>>> short scan <<<<<<<<< 
24000 SOUND 2 , 1 50 , 25 , 1 5 
24005 PEN #4,15 
24010 LOCATE #4,2,3: PRINT #4 , CHR* (234) ; s 

(sec,l) 

24015 PEN #4,14 



24020 LOCATE #4,: 

(sec, 2) 

24030 FOR n=l TO 7500: NEXT 

24040 CLS #4 



5: PRINT #4, CHR* (235) ; s 
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24050 BOUND 2 , 1 50 ,25,1 5 

24090 en e r = en e r-3 

24100 RETURN 

24980 REM >>>>>>>>>>> warp <<<<<<<<<<<< 

25000 CLS #1 =PEN #1,3 

25010 PRINT #1,"WARP FACTOR <l-5> ?" 

25020 a*=INKEY*:IF a*="" THEN GOTO 25020 

25030 IF a*<"l" OR a*> ,, 5 M THEN SOUND 2,3 

50,50, 15: GOTO 25010 

25040 dis=VAL<a*> 

25050 CLS #1 

2*060 PRINT #1,"WARP DIRECTION ? M 

2*070 a*=INKEY*:IF a*="" THEN GOTO 25070 

25080 IF a*<" 1" OR a*>"8" THEN SOUND 2,3 

50 , 50 ,15"- GOTO 25060 

25090 d i r-V AL < a* > 

25100 RESTORE 25500 

25110 FOR n=l T0 dir 

25120 READ xy 

25130 NEXT ri 

25150 FOR n=l TO dis 

25160 sec=sec+xy 

25170 IF sec<l THEN sec=sec+15 

25180 IF sec>15 THEN sec=sec-15 

25 1 90 SOUND 2 , 75*n , 25 , 15 

25250 NEXT n 

25260 IF 5(sec,l)>0 THEN GOSUB 25600 

25270 CLS #1 

25290 e n e r = e n e r- 1 NT < d i s * 1 - 5 ) 

25300 RETURN 

25500 DATA -5,-4,1,6,5,4,-1,-6 

25580 REM >>>>>>>>>>> alert <<<<<<<<<<< 

25600 PEN #1,15 

25610 a$="RED ALERT ! -RED ALERT ! -RED 

ALERT ! - " 

25620 x= I NT ( RND < 1 > *30© > + 1 00 : d i s= 1 

25650 FOR n=l TO 25 

25660 a*=R I GHT* < a* , 39 > +L E F T* < a* , 1 > 

25670 LOCATE #1,1,1= PRINT #l,a$ 

25680 SOUND 2 , 100-n*2 , 1 , 15 

25690 NEXT n 

25700 RETURN 

25980 REM > > > > > > > > >> docking < < < < < < < < < < 

26000 CLS #l:PEN #1,3 

26010 IF s(sec,2>=0 THEN PRINT #l,"No St 
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arhase - .": SOUND 2 , 300 , 25 , 15 : RETURN 

26020 x= I NT < RND ( 1 > *200 > +75 = d i s = 1 

26030 y-350 : TAG 

26040 PLOT 0,0, 1 

26050 MOVE >;,y: PRINT CHR*(235>; 

26060 GOSUB 2S000 

26070 MOVE x,y:PRINT CHR$<235> ; 

26080 IF ri = l THEN dis=dis-l 

26090 IF le = l THEN dis=dis+l 

26100 y=y-l : x-x + dis 

26102 IF x<30 THEN x=30 : di s=di s+i 

26104 IF x>380 THEN x=3S0 : di s=di s- 1 

26110 IF y=200 THEN GOTO 26150 

26120 GOTO 26050 

26150 TAGOFF:PEN 4 

26160 IF x<160 OR x >270 THEN PRINT #1,"M 

ISSED ! ! ,l : SOUND 1 ,400,25, 15:RETURN 

26170 IF x>190 AND x<240 THEN GOTO 26200 

26180 PRINT #1 , "ST AREAS E DESTROYED" : SOUN 

D 1,500,50,15,0,0,31 

26185 FOR n=5 TO 12: INK n , 3= NEXT n 

26190 FOR n=5 TO 12: INK n,6:NEXT r. 

26 1 95 s(sec,2)=0: RETURN 

26200 PRINT #1, "DOCKING . . ■ ." 

26210 ener-ener + 20: IF ener ->95 THEN ener = 

95 

26215 phas=phas+20s IF phas>95 THEN phas = 

95 

26220 shie=shie+20s IF &hie>95 THEN shie= 

95 

26230 SOUND 1 , 300 , 25 ,15: SOUND 1 , 200 , 25 , 1 

5: SOUND 1,100,25,15 

26240 FOR n=l TO 2000: NEXT r.:CLS #1 

26250 RETURN 

26980 REM >» > > > > > > > battle < <: < < < < < < < < < 

27000 FOR n-200 TO 50 STEP-l: SOUND 1 , n , 1 

,15:NEXT n 

27010 dead=0 

27030 PEN #1,3 

27040 IF s<sec,l>=0 THEN TAGOFF:CLS #1:P 

RINT #1," SECTOR CLEAR - " : RETURN 

27050 x=INT(RND< 1 >*200)+75 

27060 y = I NT < RND ( 1 > * 1 00 ) + 1 00 

27070 TAG: PLOT 0,0,1 

27100 TAG: MOVE x,y:PRINT CHR*<235>; 
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27110 GOSUB 28000 

27120 IF fi«l AND phas>0 THEN GOTO 27500 

27130 MOVE x,y:PRINT CHR*<235); 

27132 TAGOFF 

27135 IF kil=l THEN s < se c , 1 >=s ( se c , 1 )-l : 

ki 1=0: GOTO 27010 

27140 IF le = l AND x<35@ THEN xd = xct+l 

27150 IF ri = l AND x>45 THEN xd=xd-l 

27160 IF do=l AND y<350 THEN yd=yd+i 

27170 IF up = l AND y>110 THEN yd=yd-l 

271S0 IF ex=l THEN RETURN 

27200 x=x+xd:IF x<5<& THEN x=5@:xd=-xd 

27210 IF x>360 THEN x=36<Z>:xd=-xd 

27220 y=y+ydslF y>360 THEN y=360 

27230 IF y<120 THEN y=120syd=-yd 

27235 RANDOMIZE TIME 

27240 IF RND< 1X0-95 THEN GOTO 27270 

27250 INK 1,3: SOUND 1,400,20,15,0,0,31 

27260 shie=shie-i:lF shie=-l THEN dead=l 

: RETURN 

27265 FOR n = l TO 30: NEXT in: INK 1,2 

27270 LOCATE 7,23: PRINT shie; 

27280 LOCATE 7,25:PRINT phas; 

27290 LOCATE 17,23:PRINT enemj 

27450 GOTO 27100 

27490 REM * * * fire * * * 

27500 INK 13,6 

27510 FOR n=100 TO 50 STEP-l: SOUND 2,n,l 

, 15BNEXT n 

27520 INK 13,2 

27530 phas=phas-l 

27540 IF y<240 AND y>200 AND x<240 AND x 

>200 THEN e n e m= e n e m+ 1 : k i 1 = 1 s SOUND 2 , 300 , 

50, 15,0,0, 15 



27600 


GOTO 27130 


27980 


REM > > > > > > > > > key/sta v- < < < < 


28000 


GOSUB 29000 


28010 


GOSUB 11000 


28050 


RETURN 


Now ' 


'MERGE' the 'INKEYS* routine 



Rainbow Breakout 




An Arcade Classic 

This second program classic has great attraction for players of all 
ages. It is one of the shorter programs in the book and so may be a 
good first attempt for those new to programming. 

At the start you are asked to select a large or small bat, then the 
game begins. The object of the game is to eliminate all the blocks by 
hitting them with the ball. Your bat is moved left or right using the 
cursor pad or joystick. It must be moved in advance to anticipate the 
path of the ball as it bounces back from the blocks. 

If you lose a ball then there are three supplied before the game 
restarts. The score is shown and can reach very high levels in the 
hands of a skilful player. 

This game can be merged with the ' High Score' routine to provide a 
competitive game for more than one player or for a solo player to 
trace his hopefully improving play. 
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1 REM <<<<<<<<< rainbow I SS I > > > > > > > > > > 

2 REM 

400 RANDOMIZE TIME 

500 SYMBOL 240,255,195,165,153,153,165,1 

95,255 

510 SYMBOL 241,255,255,255,224,224,224,2 

24,64 

520 SYMBOL 242,255,255,255,0,0,0,0,0 

530 SYMBOL 243,255,255,255,7,7,7,7,2 

550 MEMORY 34995 

560 addr=34999: GOSUB 29500 

570 1 o ca=35029 : GOSUB 30500 

1000 sc=0: 1 i=5 

1010 MODE 1 

1020 INPUT "Small /Large ? M ,a$ 

1030 s$= ,,n : 1 im=19 

1040 IF a$= M l" OR a$="L" THEN s$=CHR$<2 

42>+CHR^<:242) : 1 im=17 

1 050 GOSUB 20000 

1060 count=0 

1100 M=l 

1110 GOSUB 21100 

1200 b=24 

1210 RANDOMIZE TIME 

1220 IF RND(l)>0-5 THEN c=l ELSE c=0 

1 230 c = c + < I NT ( RND < 1 ) * 1 ) +5 > 

1250 bd=~l :ad=-l 

1 500 GOSUB 2 1 000 

1520 GOSUB 22000 

1550 IF count >1 50 THEN GOTO 1050 

2000 GOTO 1500 

1 99S0 REM > > > > > > > > > > scree n < < < < < < < < < < < 

20000 RESTORE 20050 

20010 FOR n=0 TO 15 

20020 READ w 

20030 INK n,w 

20040 NEXT n 

20050 DATA 0,24,18,26,20,4,6,15 

20060 DATA 24,18,2,5,8,6,15,2 

20070 PAPER 0: BORDER 2= MODE 

20075 RESTORE 20210 

20080 FOR n=l TO 20 

20090 READ col 

20100 FOR m=l TO 10 

20110 LOCATE n,m 
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20120 PEN col 

20130 PRINT CHR*<2d0>; 

20140 col=col+l 

20150 NEXT m 

20160 NEXT n 

20200 RETURN 

20210 DATA 3,4,4,5,5,5,5,6,6,6,6,6,6,5,5 

,5,5,4,4,3 

2093 R E M > > > > > > > > > moveme n t < < <- \ •'•■■ : . - : *- '••• : - 

21000 GOSUB 29000 

21010 IF le=l AND x>l THEN GOSUB 21400 :x 

-x-2:G0SUB 21100 

21020 IF ri = l AND x<lim THEN GOSUB 21400 

: x = x +2 : GOSUB 211 00 

21030 RETURN 

21090 REM * * * draw * * * 

21100 PEN 1 

21110 LOCATE x, 25: PRINT CHR*<241 > ; s*;CHR 

*<243>; 

21120 RETURN 

21390 REM * * * rub * * * 

2 1 400 LOCATE x , 25 : PR I NT " " ; 

21420 IF s*<>" " THEN PRINT " " ; 

21450 RETURN 

2 i 6 S REM > > > > > > > > > draw ball < < < < < < < < < 

21700 PEN 2 

21710 LOCATE c,b:PRINT CHR*<202>; 

21720 RETURN 

21790 REM > > > > > > > > > > r- u b ball < < < < < < < < < 

21S00 LOCATE c,b : PRINT " " ; 

21810 RETURN 

21930 REM >>>>>>>> move ball <<<<<<x<< 

22000 GOSUB 21S00:al=csbl=b 

22010 al=al+ad:bl=bi+bd 

22020 IF al«0 THEN al=l : ad=l = SOUND 2,50, 

1,15 

22030 IF al=2i THEN al=20 : ad=-l - SOUND ^, 

50, 1 ,15 

22040 IF bl=0 THEN bl=l 

22050 IF bl=25 THEN GOTO 22500 

22060 LOCATE al,blsGG5UB 30000 

22070 IF ch=240 THEN PRINT " ";: SOUND 2, 

1 00 , 2 , 1 5 : s c-s c + 1 5 b d = -b d : c o un t = c o un t + 1 

22075 IF bl=i THEN bd=lsSOUND 2,50,1,15 

22080 c = c+ad = b=b+bd 
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22090 GOSUB 21700 

22100 RETURN 

22500 LOCATE c , 25 : GOSUB 30000 

22510 IF ch=32 THEN GOTO 26000 

22520 bd=-l 

22530 IF RND<;i>>0-5 THEN c = c+l 

22540 SOUND 2,75,1,15 

22550 RETURN 

25980 REM >>>>>>>>>>> dead <<<<<<<<<<<< 

26000 GOSUB 21400: li=l i-1 

26010 SOUND 2,300,75,15 

26020 IF 1 i >0 THEN GOTO 1 100 

26100 MODE 

26110 PEN 1 

26120 PRINT " CONGRATULATIONS ! !" 

26130 PRINT 

26140 PRINT "You scored : " 

26150 PRINT 

26160 PRINT sc;" points !" 

26500 LOCATE 1 , 24 : PRINT "Another game ? 

(Y/N) 1 ' 

265 1 a$= I NKE Y* : a$=UP PER* < a* ) 

26520 IF a*="Y" THEN GOTO 1000 

26530 GOTO 26510 



Now 'MERGE' the 'INKEYS' and the 
'CHAR CHECK' routines- - - 



Maze Maniac 




A Game with Perspective 

This third classic is a 3 D maze game in which you have a perspective 
view of the paths open to you. 

The object of the game is to find your way around the maze 
quickly. If you do it fast enough then you will catch the maniac. If you 
are too slow then he will catch you\ 

On screen are shown the passages that are open to you. The arrow 
at the bottom indicates the true direction that you are facing and how 
far you have travelled towards the exit at bottom right. 

The left or right cursor changes the direction you are facing. The up 
cursor takes one step into the picture each time it is pressed. The 
down cursor takes you back one step and leaves you facing the same 
direction. The joystick can also be used to move. 

Once you are successful in reaching the end of the maze then the 
target time is reduced and the best time must be beaten. 

This game uses a sophisticated technique, based upon the 
Amstrad's colour pointers, to achieve the very fast changes to the 
picture. The technique is worthy of your close examination since you 
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can use it to produce high speed movement in your own programs. 
If the program is merged with the 'High Score 1 routine then many 
players may race against each other's best time. 

1 REM <<<< maze maniac <> ISSI/JIM >>>> 

2 REM 

500 SYMBOL AFTER 228 

900 high=99 

1 G S U B 24 

1 020 GOSUB 22000 

1050 po=l :vi ew=4 : targ-h i gh-4 

1060 LOCATE 9,22: PRINT "MAZE" 

1065 LOCATE 8,24: PRINT "MANIAC 1 ' 

1 070 GOSUB 20000 : GOSUB 32000 

1 080 GOSUB 27000 : GOSUB 23000 

1090 start=TIME 

1 1 00 GOSUB 28000 

1150 GOSUB 27000 

1160 GOSUB 23000 

1170 IF won=l THEN GOTO 33000 

1180 won=0 

1200 GOTO 1100 

9980 REM >>>>>>>>>> monster <<<<<<<<<< 

1 0000 SYMBOL 228 ,0,0,16,44,62, 28 ,56,112 

10010 SYMBOL 229,129,66,126,90,126,106,8 

6,60 

10020 SYMBOL 230,0,0,8,52,124,56,28,14 

10030 SYMBOL 231,112,121,127,63,31,7,1,1 

10040 SYMBOL 232,60,255,255,255,231,215, 

235,213 

10050 SYMBOL 233,14,158,254,252,248,224, 

128, 128 

10060 SYMBOL 234,1,3,15,15,31,63,62,62 

10070 SYMBOL 235,171,213,235,215,235,255 

, 60 , 

1 0080 SYMBOL 236 ,128,192, 240 , 240 , 248 , 252 

,124, 124 

10090 SYMBOL 237,30,15,15,3,59,127,127,5 

7 

10100 SYMBOL 238,0,0,0,0,129,195,195,129 

10110 SYMBOL 239,120,240,240,192,220,254 

,254,156 

10120 PEN 15: INK 15,13 

10130 LOCATE 8, 10: PRINT CHR*<228) ; CHR*( 2 

29) ;CHR*<230) 
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CHR*<231) ;CHR*<2 
CHR$(234) ;CHR*<;2 
CHR*<237> ;CHR*<2 



10140 LOCATE 8,li:PRINT 

32 > ;CHR*<233) 

10150 LOCATE 8, 12: PRINT 

35>jCHR*<236> 

10160 LOCATE 8,13:PRINT 

38>?CHR*<239) 

10170 PEN 1 

RETURN 

REM >>>>> initialise screen 

BORDER 0: PAPER 0:MODE 

INK 0,3:PEN 13 

PLOT 0,76, 13: DRAW 

0,72, 13: DRAW 6 
0,2, 13 s DRAW 639,2 
DRAW 



PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 



1 0200 

19980 

20000 

20040 
20050 
20060 
20070 
20080 
20090 

20100 
20110 

20120 

20130 

20140 

278,15 

20150 PLOT 

8,278, 15 

20160 PLOT 

20170 

20180 

20190 

20200 

20210 

20215 

20220 

20230 



639 , 76 
:9,72 



0,6, i: 



153,0: DRAW 
150,0: DRAW 
5 12,0: DRAW 
520,0: DRAW 

GOSUB 21000 

PLOT 



639,6 

JO , / O 

150,73 
512,73 
520,78 



80 , : 



DRAW 240, 200: DRAW 240, 
639, 30,0: DRAW 398,200: DRAW 39 



160, 160, 14: DRAW 160,313 
478, 160, 14: DRAW 478,318 
80 , 1 20 ,13: DRAW 80 , 358 
558, 120, 13: DRAW 558,358 
1 



PLOT 

PLOT 

PLOT 

LOCATE 1,22:PRINT "Goal" 

LOCATE 1,24: PRINT targ 

PRINT CHR*C22>;CHR*<1); 

LOCATE 18, 22: PRINT "Hi" 

LOCATE 17,24: PRINT high 

20240 PRINT CHR*<22>;CHR*<0>; 

20270 RETURN 

REN > > > > > > > > > draw walls 
FOR n=80 TO 118 STEP 2 



20980 

21000 
2101 

21020 
21030 
21040 
2 1 050 
2 1 060 
21070 
2 1 080 



638,230-t-n 



PLOT , n , 1 3 : DRAW 638 , n 

PLOT , 280+n ,13: DRAW 

NEXT n 

FOR n-120 TO 158 STEP 2 

P L OT 80 , n , 1 4 : DRAW 558 , n 

PLOT 80 , 200+n ,14: DRAW 558 , 200+n 

NEXT n 

FOR n=160 TO 198 STEP 2 
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2 1 090 P L OT 1 60 , n , 1 5 : DRAW 478 , n 

2 1 1 00 PLOT 1 60 , 1 20+n , 1 5 -" DRAW 478 , 1 20 + n 

21110 NEXT n 

21120 FOR n=200 TO 273 STEP 2 

2 1 1 30 PLOT 240 , n , : DRAW 398 , n 

21140 NEXT n 

21150 FOR r.=0 TO 73 STEP 4 

21160 PLOT n, 120, 10: DRAW n , 353 

21170 PLOT 639-n , 120, 7: DRAW 639-n , 353 

21130 NEXT n 

21190 FOR n=80 TO 158 STEP 4 

2 1 200 PLOT n , 1 60 ,11: DRAW n ,318 

21210 PLOT 639-n , 160, 8: DRAW 639-n ,313 

21220 NEXT n 

21230 FOR n=160 TO 238 STEP 4 

21240 PLOT n, 200, 12: DRAW n,278 

2 1 250 PLOT 639-n , 200 , 9 : DRAW 639-n , 278 

21260 NEXT n 

21270 FOR n=360 TO 398 STEP 2 

21280 PLOT 78,360, 1 : DRAW 0,n 

21290 PLOT 78, 1 IS, 1 '-DRAW 0,n-280 

21300 PLOT 560, 360, 4: DRAW 638 , n 

21310 PLOT 560, 1 18,4: DRAW 638, n -280 

21320 NEXT n 

21330 FOR n=320 TO 358 STEP 2 

21340 PLOT 153, 320, 2: DR. AW 

21350 PLOT 153, 158, 2: DRAW 

21360 PLOT 480, 320, 5: DRAW 

21370 PLOT 480, 158,5: DRAW 

21380 NEXT n 

21390 FOR n=280 TO 318 STEP 2 

21400 PLOT 233, 280, 3: DRAW 160, n 

21410 PLOT 233, 198,3: DRAW 160, n™ 120 

21420 PLOT 400, 280, 6: DRAW 478, n 

21430 PLOT 400, 198, 6: DRAW 478, n- 120 

21440 NEXT n 

21450 RETURN 

21980 R E li > > > > > > > > colour- data < < < < < 

22000 DIM 1(14,9) 

22010 RESTORE 22000 

22020 FOR n=l TO 14 

22030 FOR m=l TO 9 

22040 READ a:l<n,m>=a 

22050 NEXT m 

22060 NEXT n 



80 , n 






80 , n 


- 


200 


553, 


ri 




558, 


\~\ 


-200 
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22070 


RETURN 


220S0 


DATA 6,6,6,6,6,6,20,11,2 


22090 


DATA 6 , 6 , 2 , 6 , 6 , 3 , 20 , 1 1 , 2 


22100 


DATA 6,11,6,6,3,6, 20 ,11,2 


22110 


DATA 6 , 1 1 , 2 , 6 , 3 , 3 , 20 , 1 1 , 2 


22120 


DATA 20,6,6,3,6,6,20,11,2 


22130 


DATA 20 ,6,2,3,6,3, 20 ,11,2 


22140 


DATA 20 ,11,6,6,3,6,20,11,2 


22150 


DATA 20 , 1 1 , 2 , 3 , 6 , 3 , 20 , 1 1 , 2 


22160 


DATA 6,6,3,6,6,3, 20 ,11,3 


22170 


DATA 6,11,3,6,3,3, 20 ,11,3 


22130 


DATA 20 , 6 , 3 , 3 , 6 , 3 , 20 , 1 1 , 3 


22190 


DATA 20,11,3,6,3,3,20,11,3 


22200 


DATA 6,3,3,6,3,3,20,3,3 


22210 


DATA 20,3,3,3,3,3,20,3,3 


22980 


REM > > > > > > > c h o o s e colo u r s < < < 


23000 


FOR n = l TO 3 


23010 


INK r. , l(vl ,n> 


23020 


NEXT n 


23030 


FOR n=4 TO 9 


23040 


INK n+6, Kvl ,n> 


23050 


NEXT n 


23060 


FOR n=l TO 6 


23070 


INK n+3, l(vr,ri) 


230S0 


NEXT n 


23110 


RETURN 


23930 


REN > > > > > > > > > > variables < < < < < 


24000 


DIM m(55) 


24010 


GOSUB 25000 


24020 


addr=34999 : GOSUB 29500 


24250 


RETURN 


24980 


REM > > > > > > > > > maze data < < < < < < 


25000 


RESTORE 25000 


25010 


FOR r.-i TO 55 


25030 


READ a:m<n>=a 


25050 


NEXT n 


25090 


RETURN 


25100 


DATA 4,6,1,6,7,5,4,6,5,6,1 


25110 


DATA 10,13,2,9,12,10,11,9,14,1 


25120 


DATA 6,9,6,3,9,2,5,6,9,6,5 


25130 


DATA 12,6, 13,2,5,6, 15,9,6,9,12 


25140 


DATA 10,9,10,3,9,3,10,3,9,2,9 


25980 


REM > > > > > > > > > > n / s / e / w < < < < < < < 


26000 


x=m(po> 


26010 


no=0 s so=0 ' ea=0 s we=0 



1,1 
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26020 IF >;>=S THEN no = l : x = >c-8 

26030 IF x>=4 THEN so=l:x=x-d 

26040 IF x>=2 THEN ea=l:>; = x-2 

26050 IF x>=l THEN we=l:x = x*-l 

26060 RETURN 

26980 REM > > > > > > > > > check view < < < < < < < < 

2 7 G S U B 3 

27040 vl=l : vr^l : a=l s sa=po 

27050 FOR q=2 TO STEP -1 

27055 ok-q*di sp • I F sa+ok< 1 OR sa+ok >55 T 

HEN GOTO 27160 

27060 po=5a+ok 

27070 G S U B 2 6 

27075 d=0 : 1 =0 = r-0 

27080 IF vi ew=l THEN d=we : l=so : r=no 

27090 IF vi ew=2 THEN d=no = l=we : r=ea 

27100 IF view=3 THEN d=ea = l=no : p-so 

27110 IF view=4 THEN d=so : l=ea : r=we 

27120 IF d=0 THEN GOSUB 27500 

27130 IF 1=1 THEN vl=vl+a 

27140 IF r=l THEN vr=vr+a 

27150 a=a*2 

27160 NEXT q 

27170 po=sa 

27130 RETURN 

27480 REN >>>>>>>>>>> XYZ <<<<<<<<<<<< 

27500 vl=13:a=l 

27510 IF q=2 THEN vl=l 

27520 IF q=l THEN vl-9 

27530 vr=vl 

27540 RETURN 

279 8 R E M > > > > > > >> move p o 5 i t i o n < < < < < < 

28000 GOSUB 29000 

28010 IF le=l THEN view=vi ew-1 : GOSUB 320 

00 

28020 IF ri = l THEN view=vi ew+1 : GOSUB 320 

00 

28040 IF do=i THEN vi ew=view-l : GOSUB 320 

00 : v i ew=v i e w™ 1 : GOSUB 32000 : GOSUB 28500 

23050 IF up=l THEN GOSUB 28500 

28060 IF do=l THEN vi ew=vi ew-1 - GOSUB 320 

00: view~view~l s GOSUB 32000 

28090 IF po=54 THEN WON=l 

28110 RETURN 

28500 IF view^l AND we=0 THEN GOTO 28900 
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28510 IF view=2 AND no=© THEN GOTO 28900 

28520 IF view=3 AND ea=0 THEN GOTO 28900 

28530 IF view=4 AND so=0 THEN GOTO 28900 



28540 GOSUB 30000 

28550 IF po+disp>55 OR po+disp< 

TO 28900 

28560 po=po+disp : GOSUB 32000 

28570 RETURN 

28900 BORDER 18 



1 THEN GO 



28910 


SOUND 2,300,25, 


r 1 -' 


28920 


FOR z=l TO 25 




28930 


NEXT z 




28940 


BORDER 




28950 


RETURN 




29980 


REN >>>>>>>>>> 


movement 


30000 


IF view=l THEN 


di sp=-l 


30010 


IF view=2 THEN 


disp=-ll 


30020 


IF view=3 THEN 


disp=l 


30030 


IF view=4 THEN 


d i s p = 1 1 


30040 


RETURN 




30980 


REN >>>>>>>>>>: 


> a r r o w < < 


31000 


sym-241 




3101 


IF view=€) THEN 


vi ew-4 


31020 


IF view=5 THEN 


vi ew=i 


31030 


IF view=l THEN 


sym~242 


31040 


IF view-2 THEN 


sym=240 


31050 


IF view=3 THEN 


sym=243 


31070 


PRINT CHR*<sym>; 


31080 


RETURN 




31980 


R! E N y y y . ; ' .- : ' y y y y y ■ 


>> map <<< 


32000 


FOR n=21 TO 25 




32010 


LOCATE 6,n 




32020 


PRINT SPCCll) :l 


PRINT 


32030 


NEXT n 




32040 


yp=INT<po/l 1 > 




32050 


xp=po-< 1 l*yp) 




32060 


IF xp=0 THEN K] 


p=ll :yp=yp 


32070 


PRINT CHR*<23> 


;CHR$(i:> ; 


32080 


LOCATE xp+5,yp- 


+-21 


32090 


GOSUB 31000 




32100 


PRINT CHR*<;23> 


;CHR$(0> ; 


32110 


RETURN 
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3 2 9 S REM > > > > > > > > > > > > out < < < < < < < < < < < < 

33000 f in=TIME-start 

33010 sc=INT<f in/300> 

33020 IF sc<=h igh THEN high=sc 

33030 won=0:CLS 

33040 PR I NT: PR I NT "Your Time Was ;";5C 

33060 PRINT: IF sc<targ THEN PRINT "You g 

ot your Goal ! " 

33070 GOSUB 10000 

33490 LOCATE 3,24: PRINT "Now Try Again - 

33500 FOR 2=1 TO 3000: NEXT z 
335 1 GOTO 1 050 



Now 'MERGE 1 the ' INKEYS' routine- 



Duo Draughts 




Computer Moderated Micro Draughts 

The idea is very simple - you must get rid of all your opponent's 
pieces, byjumping over them. To jump over a piece there has to bean 
empty space on the other side. 

At the start you can only move in one direction, that is up the 
board if you are White or down if you are Black. To move a piece the 
letter for its column and the number for the row is entered. Next the 
destination square is given in the same way. 

If it is not possible to jump over a piece then any one of your own 
draughts is advanced by one square to another square of the same 
colour. If a piece reaches the other side then it becomes a 'king' or 
'crowner'. This means that it can move up and down the board and so 
is more powerful. 

The fact that you have to take a piece when possible does not apply 
according to some sets of rules. Some authorities require that should 
an opponent's piece not be taken when possible, then the offender 
loses that piece. This is known as 'huffing'. 

In this micro version the program will not accept an instruction 
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which simply moves a piece when there is a jump move available. The 
indicator will continue to show the same colour player until thejump 
sequence is complete. 

A game can be saved to tape at any stage by pressing [shift] S. A 
previously saved game is loaded at any time by [shift] L. During a 
game or after loading, the step mode can be selected by pressing 
[shift] 3. Pressing 'Space' will then step through from the beginning. 
Pressing [shift] 3 will end step mode and allow the game to be played 
on from that position. 

'BOARD CORE' 



1 9980 REM > > > > > > > > > > > scree n < < < < < < < < < : '-. 

20010 PAPER 0:PEN 1: BORDER 0=MODE 1 

20020 WINDOW #1,2,25,1,24 

20030 PAPER #1,3: PEN #1,2:CLS #1 

20035 PAPER #2,2 

20040 TAG #2 

20070 1 *=STR I NG* ( 3 , 1 43 > 

200S0 1 1 *=STR I NG$ ( 3 , 32 > 

20090 n*=l*+l 1 *+!$+! 1*+1*+1 1*+1*+1 1* 

2010 F O R ri = 1 T 4 

20110 FOR m=l TO 3 

20120 PRINT #1 ,ri*{ 

20130 NEXT m 

20140 FOR m=l TO 3 

20150 PRINT #1 ,RIGHT*(r.*,21 >+LEFT*(n*,3> 

20160 NEXT m 

20170 NEXT n 

20200 FOR n=2 TO 23 STEP 3 

20210 LOCATE l,n 

20220 l*=HEX*(<26-n>/3, 1> 

20230 PRINT 1$; 

20240 LOCATE n+1,25 

20250 PRINT CHR*<64+<ri + i;>/3;> ; 

20260 NEXT n 

20270 WINDOW #3,27,39,2,15 

20280 PAPER #3,3: PEN #3,l:CLS #3 

23980 R E M > > > > > > > > > > > i n p li t < <<<<<< < < < < 

24000 LOCATE #3 , 5 , 4 : I F play==l THEN PRINT 

#3, "WHITE" ELSE PRINT #3, "BLACK" 

24010 LOCATE #3 , 10 , 6 : PRINT #3," " 

24020 LOCATE #3 , 10 , 9 : PRINT #3," 
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24030 LOCATE #3 ,10, 6 

24040 GOSUB 24500 

24050 f $=n* 

24060 LOCATE #3,10,9 

24070 GOSUB 24500 

240S0 s$=n$ 

24100 RETURN 

30980 REM >>>>>>>>>>>> save <<<<<<<=: 

31000 z$< count , 1 > = " FF" 

3 1 1 g*= " " s SOUND 2 , 200 , 20 ,15: SOUND 

0,40, 15 

31020 FOR n=l TO 3 

31030 FOR m=l TO 8 

31050 NEXT m 

31060 NEXT n 

31065 h*= ,,H = i*=" " 

31070 FOR n=l TO 100 

3 1 080 h *= h *+ z * < n , 1 > 

31085 i*=i*+z*<ri,2> 

31090 NEXT n 

31 100 h*=h*+STR*< count) 

31120 PRINT #9,g* 

31130 PRINT #9,h$ 

31140 PRINT #9, i* 

31150 CLOSE OUT 

3 1 1 60 SOUND 2 , 200 , 20 ,15: SOUND 



,10 



100,40, 1 



31200 RETURN 

31980 REN > > > > > > > > > > > > load < < < < < < < < 
32000 g*= " M : SOUND 2 , 200 , 20 ,15: SOUND 
0,40, 15 

#9,g* 

#9,i* 



2 , 20 



32015 

32020 

32025 

32030 

32035 

32040 

32070 NEXT 

32080 NEXT 

32090 

32100 

32110 

32120 

32125 

32130 



LINE INPUT 
LINE INPUT 
LINE INPUT 
CLOSE IN 
FOR n=l 
FOR m=l 

m 

n 
FOR ri=l 



TO 
TO 



TO 100 



z*<n, l)=LEFT*<h*,2;) 
h*=R I GHT* ( h* , L EN ( h* > -2 > 
z*<n 1 2>=LEFT*(i* 1 2) 
i $=R I GHT* < i * , L EN < i * ) ™2 > 
NEXT n 
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32140 coi_mt=VAL<h*> 

32 1 50 SOUND 2 , 200 , 20 ,15: SOUND 2 , 200 , 40 , 1 

5 

3216- G S U B 2 

32170 G SUB 2 3 

32180 LOCATE #3, 10,6 

32200. RETURN.. 

'Board core' should now be saved separately to be used also in Chess 
Duel. The listing which follows completes the draughts 57 program. 

1 REN < < < < < < < d r a u g h t s < rt > I S S I > > > > > > > 

2 REN 

50 SPEED WRITE 1 

1 000 GOSUB 2 1 000 

1010 FOR n=l TO 100 

1020 s*(n, 1 >-" 

1030 z$(n,2)=" 

1040 NEXT n 

1 1 G SUB 2 Co Co Co : G SUB 2 2 Q) 

1 1 50 PR I NT CHR* ( 23 > ; CHR* < 1 > ; = GOSUB 23000 

1 160 count-! 

1200 GOTO 1900 

1600 qam=® 

1610 FOR n=l TO 8 

1620 FOR m=l TO 8 

1630 IF m*(ri,m> = "B" OR fD$(r. ,m}= M D" THEN 

gam-1 

1640 NEXT m:NEXT n 

1660 IF gam=0 THEN GOTO 10000 

1670 gam=0 

1680 FOR n = l TO 8 

1690 FOR m=l TO 8 

1700 IF m*<rl,m;> = ,, A ,, OR m*(n ,m> = "C M THEN 

gam=l 

1710 NEXT m:NEXT n 

1730 IF gam=0 THEN GOTO 11000 

1750 RETURN 

1 900 GOSUB 29000 

2000 GOTO 1900 

9980 REM >>>>>>>>> black win <<<<<<<<< 

10000 CLS 

10010 LOCATE 15, 10: PRINT "BLACK won." 

1 0050 GOTO 1 1 050 

109 3® R E N > > > > > > > > w h i t e w i n < < < < < < < < < 
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11000 CLS 

11010 LOCATE 15, 10= PRINT "WHITE won-" 

1 1 050 SOUND 2 , 300 , 25 : SOUND 2 , 200 , 25 : SOUN 

D 2, 100,25 

11060 LOCATE 5,24: PRINT "Do You Want A R 

eplay (Y/N> ?" 

11070 a*=INKEY*sa*=UPPER*Ca*) 

11080 IF a*="Y H THEN GOSUB 35000 : GOTO 11 

00 

11090 IF a*="N" THEN GOTO RUN 

11100 GOTO 11060 

20000 I NK ,0:1 NK 1,26:1 NK 2,14:1 NK 3 , 2 

20290 PRINT #3," DRAUGHTS-" 

20300 PRINT #3," " 

20310 LOCATE #3, 2,6: PRINT #3," FROM :-" 

20320 LOCATE #3,2,9: PRINT #3, "TO :-" 

20500 RETURN 

20980 REM > > > > > > > > initialize < < < < < < < < < 

2 1 000 DIM m$ ( 8 , 8 > 

21010 DIM s*( 100,2) 

21020 SYMBOL 240,0,0,0,0,15,127,255,255 

21030 SYMBOL 241,0,0,0,0,240,254,255,207 

21040 SYMBOL 242,188,175,170,170,122,15, 

, 

21050 SYMBOL 243,61,227,31,255,254,240,0 

,® 

21060 SYMBOL 244 , , 1 , 9 , 87 , 99 , 1 It: , 1^5 , ^55 

21070 SYMBOL 245,0,128,144,234,198,110,5 

8, 187 

21080 SYMBOL 246,191,175,170,170,122,15, 

0,0 

21090 SYMBOL 247,125,227,31,255,254,240, 

0,0 

21250 RETURN 

21980 REM > > > > > > > > game start < < < < < < < < < 

22000 FOR n=l TO 8 

220 1 FOR m= 1 TO 8 

22020 m$(n,fn) = " " 

22030 NEXT m 

22040 NEXT n 

22050 FOR n=l TO 8 STEP 2 

22060 m*<l T ri + 1> = ,, A" 

22070 m$<;2,n;> = n A n 

22080 mS^n + n^'A" 

22090 m*<;8,n) = n B" 
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22100 m*<7 f n+l>="B" 

22110 m$<;6,n} = H B" 

22120 NEXT n 

22190 RETURN 

229 80 REM > > > > > > > > draw pieces < < < < < < < < 

23000 >j=25 : y = 390 

23010 FOR n=l TO 8 

23020 FOR m=l TO 8 

23030 c$=m$(n ,m) - c*=UPPER*< c*> 

23040 IF c^' 1 " THEN GOTO 23100 

23050 IF c$= H A" THEN col=3 ELSE col=2 

23070 PLOT , , co 1 

23080 MOVE x,y 

23090 GOSUB 23500 

23100 PLOT 0,0,0 

23110 x=x+48 

23130 NEXT m 

23 1 40 x=25 : y-y-48 

23150 NEXT n: RETURN 

23490 F:EM * * * piece * * * 

23500 d*=CHR*<240>+CHR*<24i;> 

235 1 d 1 *=CHR* ( 242 > +CHR* < 243 > 

23550 IF c*="C" OR c$="D n THEN d*=CHR$<2 

44>+CHR*<245) = d 1 *=CHR*<246;> +CHR* ( 247) :hu 

23600 PRINT #2,d$; 

23610 MOVE x,y-16 

23620 PRINT #2,dl«; 

23750 RETURN 

24500 ri*= M " 

24510 a*=INKEY$ 

24520 IF a$="Q" THEN RUN 

24524 IF a*="S" THEN GOSUB 31000 

24526 IF a$= n L M THEN GOSUB 32000 

24528 IF a$="# n AND count>l THEN :$(coan 

t , 1 > = " F F " : GOSUB 35000 

24530 a*=UPPER*<a*;> 

24540 IF a$<"A" OR a$> M H" THEN GOTO 2451 



24550 n*=a*: SOUND 2, 150,5, 15: PRINT #3,n* 

24560 a*=INKEY* 

24570 IF a$<"l" OR a*>"9" THEN GOTO 2456 
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24580 n*-n*+a* : SOUND 2 , 1 50 , 5 , 1 5 : PR I NT #3 

,a$; 

24590 RETURN 

24980 REM > > > > > > > > > > > move < < < < < < < < < < < < 

2 5 G O S LI B 2 6 

25090 ro=sl:co=s: GOSUB 25200 

25100 m$(sl,s)=ffl$(fl,f> 

25110 IF sl = l AND m*<i ,s)="B" THEN m*<l, 

s)= n D" shuf f=0 

25120 IF sl=S AND m*<8,s>="A" THEN m*<8, 

s> = ,, C M :huf f=0 

25 1 25 SOUND 2 , 200 ,75,1 5 

25130 ro-sl : co = 5 : GOSUB 25200 

25 1 35 SOUND 2 , 1 00 ,10,15 

25140 ro=f 1 : co=f : GOSUB 25200 

25150 m*<f 1 ,f > = " " 

25160 RETURN 

25200 x~25 - y=390 

25210 FOR n=l TO 8 

25220 FOR m=l TO 8 

25230 IF n = ro AND oi=co THEN GOSUB 25300 

25240 k=m+48 

25250 NEXT m 

25260 x=25 - y=y-48 

25270 NEXT n 

25280 RETURN 

25300 c$-m$0~i ,m> 

25310 IF c*=" M THEN RETURN 

25320 IF c*="A" OR c$= ,, C" THEN col =3 ELS 

E col=2 

25340 P L OT , , c o 1 = MOV E x , y 

25350 GOSUB 23500 

25360 RETURN 

25980 REM > > > > > > > > > > > convert < < < < < < < < < 

26000 f = ASC ( L E F T$ < f $ , 1 } } 

26010 f =f -64 

26020 f 1 =VAL ( R I GHT* ( f * , 1 > > 

26030 f l=9-f 1 

26040 s==ASC(LEFT*<s*, 1>> 

26050 5=5-64 

26060 sl=VAL<RIGHT*(s*, 1 > > 

26070 s 1=9-5 1 

26080 RETURN 

26090 R E M > > > > > > > convert bac k < < < < < < < < 

26 1 00 r*=CHR* ( c o 1+64 ) 
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26 1 1 r*=r*+STR* ( 9- 1 i n > 

26120 RETURN 

26980 REM >>>>>>>>>> validate <<<<<<<<< 

27000 GOSUB 26000 : h uf f =0 

27005 p$="B" :pl*="D" 

27007 IF play=2 THEN p*=" A" : p 1$="C" 

27010 FOR y=l TO 8 

27020 FOR x~l TO S 

27030 IF huff=l THEN GOTO 27060 

27040 IF m$(y 1 x)Op$ AND a)$(y,x>Opl$ TH 

EN GOTO 27060 

27050 GOSUB .33000 

27060 NEXT x 

27070 NEXT y 

27075 check=l 

27080 c$=m$(f 1 , f > : d*=m*<sl , s > 

27090 IF c$=" " THEN RETURN 

27100 IF (c*= M A H OR c*= ,, C" > AND play=l T 

HEN RETURN 

27110 IF <c*= n B" OR c*="D M > AND play=2 T 

HEN RETURN 

27120 IF d*<>*' " THEN RETURN 

27130 IF c*="A n AND sKfl THEN RETURN 

27140 IF c$="B" AND sl>fl THEN RETURN 

27150 xd=s-f :yd=sl-f 1 

27160 IF SGN<xd>*<xd;> = l AND SGN(yd)*<;yd) 

=1 THEN GOTO 27490 

27170 IF SGN<xd>*xdOSGN<yd>*yd THEN RET 

URN 

27180 x*=m*<f l+<yd/2> , f +<xd/2) > 

27190 IF <x$="A" OR x*="C" > AND pi ay =2 T 

HEN RETURN 

27200 IF <x*="B" OR x*="D"> AND play=l T 

HEN RETURN 

27210 IF x*=" " THEN RETURN 

27220 ro = f l + < yd/2 >:co = f + <; xd/2>: GOSUB 252 

00 

27230 1 in-f l+<yd/2) : col = f +<xd/2> 

27240 m$(lin,col)= H " 

27250 GOSUB 26100 

27260 z$( count , 1 >=r$: z$< count ,2>=r* 

27270 c o un t = c o un t+ 1 : GOTO 27500 

27490 IF huff=l THEN RETURN 

27500 check=0:RETURN 

27980 REM > > > > > > > > > > > t u r ■ n < < < < < < < < < < < < 
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2800® 

28005 

28010 

28020 

28030 

OWE" 

28040 

28050 

28060 

28070 

unt=l 

28075 

28080 

28090 

28 1 00 

28980 

29000 

29010 

29020 

29030 

29040 

29050 

29060 

31040 

31110 

32010 

32050 

32060 

32980 

ZZQXbQ) 

33010 

33020 

33030 

08® 

33040 

33050 

= h2*) 

33060 

3307® 

= h2*> 

33080 

130 

33090 

33100 

= h2*> 



GOSUB 2400® : huf f =® 

LOCATE #3,l,ll:PRINT #3,SPC<12> 

GOSUB 27000 

IF check=® THEN GOTO 2805® 

LOCATE #3, 1 ,11 : PRINT #3," INVALID M 

SOUND 2 , 30® , 5® ,15s GOTO 28®®® 
GOSUB 25® 0® 

2*< count , 1 ) = f $: z*< count ,2>=s$ 
count = co un t + 1 : I F c o un t ~ 1 ® 1 THEN c o 

IF huff=0 THEN GOTO 28100 

y= s i : x=s : GOSUB 33000 

IF huff=l THEN GOTO 34®®® 

huf f=®= RETURN 

REM > > > > > > > both playe v s < < < < < < < < 

play-1 

GOSUB 28®®® 

GOSUB 160® 

play=2 

GOSUB 2800® 

GOSUB 1600 

RETURN 

g* = g*+m*0"i , m) 

OPENOUT " ! DRAUGHTS" 

OPENIN " ! DRAUGHTS" 

m*<ri,m)=LEFT*<g*, 1 > 

g*=R I GHT* < g$ , L EN < g$ } ~ 1 > 

REM > > > > > > > > > > > h u f f < < < < < < < < < < < < 

huf f=0 

hl*= ,, A" :h2*= ,, C n 

IF play=2 THEN hl*="B" : h2*="D" 

IF y<3 OR m*<y,x>="A" THEN GOTO 33 

IF >i<3 THEN GOTO 33®6® 

IF (m*<y-l , x-1 )=hl* OR m*(y-l , x-1 ) 

AND m*<y"2,>{-2> = " " THEN huff = l 

IF x>6 THEN GOTO 33®3® 

IF <m*(y™l ,x+l )=hl* OR m*<y-l,x+l> 

AND m*<y-2,x+2>=" " THEN huff = l 

IF y>6 OR m*Cy,x> = ,, B H THEN GOTO 33 

IF x<3 THEN GOTO 33110 

IF <m*Cy+l , x-1 >=hl* OR m$(y+l,x-l) 

AND m*<y+2,x~-2} = " " THEN huff=l 
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33110 IF x>6 THEN GOTO 33130 

33120 IF <m*<y+l ,x+l>=hl* OR m*<y+l , x+1 ) 

= h2*> AND m*<y+2,K+2> = ,i " THEN huff=l 

33130 RETURN 

33980 REM >>>>>>>>> go again <<<<<<<<<< 

34000 LOCATE #3 , 10 ,6 : PRINT #3,s* 

34010 f$=s$ 

34020 LOCATE #3, 10,9: PRINT #3," 

34030 LOCATE #3,10,9 

34040 GOSUB 24500 

34050 s$=n$ 

34060 LOCATE #3 , 1 , 1 1 : PRINT #3,SPC(12) 

34070 GOSUB 26000: GOSUB 27075 

34080 IF check=0 THEN GOTO 34110 

34090 LOCATE #3 , 1 , 1 1 : PRINT #3, "INVALID M 

OVE" 

34 1 00 SOUND 2 , 300 , 50 ,15: GOTO 34020 

341 10 GOSUB 25000 

34 1 20 z$(count,l) = f$!2$(co un t , 2 ) = s * 

34130 count=coun t+1 : I F count=101 THEN co 

unt=l 

34140 y=5l:>; = s : GOSUB 33000 

34150 IF huff=l THEN GOTO 34000 

34 1 60 h u f f =0 : GOTO 28 1 50 

34980 REN >>>>>>>>>> replay <<<<<<<<<<< 

35000 c o un t =0 : p 1 ay ~ 1 

35010 GOSUB 22000 

3 5 2 Co G SUB 2 0) : G S LI E< 2 3 

35030 c o un t = c o un t + 1 

35040 IF z*<count,l>-"FF" THEN GOTO 3550 



35050 f*=z*< count , 1} : s*=z*< count , 2) 

35060 GOSUB 26000 : GOSUB 25000 

35065 IF f*=s$ THEN GOTO 35030 

35070 count=count+l 

35080 a*=INKEY* 

35090 IF a*=" " THEN GOTO 35080 

35095 pi ay =2 

35100 IF a$="# M THEN GOTO 35500 

35110 IF z$(courit,l) = "FF" THEN GOTO 3550 



35120 f *=z$< count , 1 > : s$=2$( count ,2) 
35 1 30 GOSUB 26000 : GOSUB 25000 
35135 IF f$=s$ THEN GOTO 35030 
35140 a*=INKEY* 
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35150 IF a*= ,,M THEN GOTO 35140 

35155 play=l 

35160 IF a*= ,, # n THEN GOTO 35500 

3517 GOT 3 5 3 

35500 IF play=l THEN GOTO 29000 

355 1 GOTO 29030 



Now 'MERGE' the 'BOARD CORE' routine 



8 

Chess Duel 




Computer Moderated Micro Chess 

It will come as a surprise to many that before the age of chess 
computers and the microcomputer program, the game of chess was 
originally played by two human beings. 

An intelligent chess playing program would take up an entire book 
on it's own, so it was decided to develop a program which would be of 
genuine use to anyone who enjoyed playing chess or would like to 
learn more about it. Chess clubs could also find the program helpful. 

The program can be used simply as a replacement for a chess board 
and pieces. The two players enter their moves in usual standard chess 
notation. However, extra features have been included to produce 
worthwhile advantages over the traditional board and pieces. 

The computer will examine all entries for legality of the move. 
Only moves which are the correct colour, are from occupied squares 
and move to a square which can be reached by that piece, will be 
accepted. Pieces which are 'taken' in the process are removed from 
the board. 

The program does not indicate 'check' or 'mate' and will allow 
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moves which reveal check. It is up to the humans to watch out for 
these. En passant is not automatically dealt with but the 'remove' 
option may be used by a player to take the pawn if required on his 
move. 

Castling is handled by the program. The present position of the 
king and rook have to be correct, with no pieces between them, for 
castling to be implemented. The routine will still castle if a piece has 
previously been moved but returned to the correct square. Moving 
through check is not monitored. These latter conditions must be 
detected by the players. 

A useful feature is that the initial board may be set up for chess 
problems or chess variants and games of up to 100 moves can be 
stored and analysed step by step. Play can continue from any stage of 
a saved game or the present game can be re-started and then played 
from any subsequent move. Pawns are automatically promoted to a 
queen when they reach the appropriate rank. 



Summary of commands and options 

1 . Set up board. Enter 'Y' when asked. Then sequentially from the 
top left, place each piece using a single letter. Move on using 'Space'. 

White pieces: P=pawn, R=rook, N= knight, K=king,Q— queen, 

B=bishop. 

Black pieces: the same but with 'Shift' held. 

White always plays up the board. 

2. Remove piece. 'Shift' 'R' thenenterthe position. Play continues 
with the next player. 

3. Castle. 'Shift' 'C then direction 'L' or 'R'. 

4. Save game. 'Shift' 'S'. You must ensure cassette Record and 
Play are on before saving as prompts are not displayed. 

5. Load Game. 'Shift' 'L\ then press 'Play'. This loads the first file 
found. 

6. Step through game. 'Shift' '3' initiates step mode. 'Space' steps 
through each move. 'Shift' '3' then ends mode. 

7. Quit. 'Shift' 'Q' resets for new game. 

1 REM <<<<<<<<< chess <> I SSI >>>>>>>>> 

2 REM 

10 CALL &BB03: SPEED WRITE 1 

500 SYMBOL 240,1,3,29,63,63,57,23,7 

510 SYMBOL 241,0,123,56,252,25 
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7,7,4,31 , 16, 127,64,127 
224 , 224 , 224 , 248 , 1 20 , 254 , 3 

1 ,19,81 ,91,109,55,27,15 
1 28 , 200 ,138,218,182, 236 , 2 

1,1,7,14, 28 , 28 ,14,7 

128,1 28 , 224 , 240 , 1 20 , 1 20 , 2 

0,0,3,7,15,31,9,3 

, 1 92 , 64 , ^24 ,176, 208 , 232 , 



5, 25, 31, 12, 15 

0,0,152,152,152, 248 , 240 , ; 



0,0, 25 



, ,0,0,0,3,7,7 

, , , ,0,1 92 , 224 , 224 
5,4,3,15,8,31,16,31 
224,224, 192,240, 1 1^,248,5 



24 

520 SYMBOL 242 

530 SYMBOL 243 

, 254 

540 SYMBOL 244 

550 SYMBOL 245 

1 6 , 240 

560 SYMBOL 246 

570 SYMBOL 247 

40 , 224 

580 SYMBOL 248 

590 SYMBOL 249 

120 

600 SYMBOL 250 

610 SYMBOL 251 

40 

620 SYMBOL 252 

630 SYMBOL 253 

640 SYMBOL 254 

650 SYMBOL 255 

6 , 248 

660 PRINT CHR3K23) ;CHR*<1> ; 

1000 CLEAR: GOSUB 21000 

1010 FOR n=l TO 100 

1020 2*(ri, 1> = " " 

1030 z*<n,2>=" 

1040 NEXT n 

1100 GOSUB 20000 

1110 LOCATE 27, 18: PRINT 

1115 LOCATE 27,20: PRINT 

1120 a*=INKEY*:a*=UPPER*<a*) 

1130 IF a$="Y" THEN GOSUB 30000: IF 

=0 THEN GOTO 1170 ELSE GOTO 1100 

1140 IF a*<>"N M THEN GOTO 1120 

1150 GOSUB 22000: GOSUB 23000 

1170 LOCATE 27, 18: PRINT SPC(14); 

1180 LOCATE 27,20: PRINT SPC(14); 

1190 PRINT CHR*<23> ;CHR*<1>; 

1300 count-1 

1 500 GOSUB 29000 

2000 GOTO 1500 

20000 I NK , : I V\K 1,26:1 NK 2,6:1 NK 

20290 PRINT #3," CHESS DUEL-" 

20300 PRINT #3," " 

20310 LOCATE #3,2,6: PRINT #3, "FROM 



"DO YOU WISH TO" 
"SET A BOARD ?" 



chec k 
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20320 

20500 
20980 

21000 
2101 

21020 
21030 
21040 
2 1 050 
21060 
21070 
210S0 
2 1 090 

211 00 

21110 
21 120 
21130 
21250 
219S0 
22000 
22010 
22020 
22025 
22030 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22 1 1 
22120 
22125 
22130 
22140 
22145 
22150 
22160 
22170 
22180 
22250 
22980 
23000 
23010 



LOCATE #3,2,9: PRINT #3, "TO 

RETURN 

REM > > > > > > > > initialize < < < 

DIM m*(8,S>:DIM x*<8,3> 

DIM z*( 100,2) 

k*=*CHR*C240>+CHR*<2ai ) 

kl*=CHR*<242)+CHR*<243> 

q*=CHR* ( 244 > +CHR* < 245 > 

q 1 *=CHR* C 242 > +CHR* ( 243 ) 

b *=CHR* ( 246 > +CHR* C 247 > 

b 1 *=CHR* < 242 > +CHR* < 243 > 

t *=CHR* < 248 > +CHR* < 249 > 

1 1 *=CHR* ( 242 > +CHR* ( 243 > 

r *=CHR* ( 250 > +CHR* ( 25 1 > 

rl*=CHR*<242>+CHR*(243> 

p$=CHR* < 252 > +CHR* ( 253 > 

p 1 *=CHR* ( 254 ) +CHR* < 255 > 

RETURN 



REM >>>>>>>> 
FOR n=l TO 8 
FOR m=l TO 8 
m$(r. ,m> = " " 
x*Cn,m)=" " 
NEXT m 
NEXT n 

FOR n=l TO 8 
m$<;2,n} = M P' 
m$<7,n;) = n p 1 
NEXT r. 

RESTORE 22250 
FOR n-1 TO 8 
READ a* 
m$( 1 , n}=a$ 
x*< 1 ,\i)=a* 
a*==LOWER*(a*> 
m$(8 , n >=a$ 
>c$(8 , n)=a$ 
NEXT n 
FOR n=l TO 



game start 



:x*<2,ri> = n P" 
:x*(7,n;>- ,, p" 



!*(n, 1)=" 



100 

" :s*Cn 



2'> = , 



NEXT n: RETURN 
DATA R,T,B,Q,K,B, 
REM >>>>>>) 



f,r 

draw pieces 



\ <s < 



' < < < < 



x=25:y-390 
FOR n=l TO 
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23020 FOR m=l TO 8 

23030 c*=m*<ri ,m) 

23040 IF c*= M " THEN GOTO 23100 

23050 IF c*<"a M THEN col=2 ELSE col=3 

23060 IF TEST(x-2,y+2>=3 THEN col=col XO 

R 1 

23070 PLOT 0,0, col 

23080 MOVE x,y 

23090 GOSUB 23500 

23100 PLOT 0,0,0 

23110 x=x+48 

23130 NEXT m 

23140 x = 25 = y-y-48 

23150 NEXT r. 

23250 RETURN 

23490 REM * * * piece * * * 

23500 c*=UPPER*(c*> 

23510 IF c*="K" THEN d$=k*: dl$=k 1* 

23520 IF c$= n Q n THEN d* = q* : dl*=ql$ 

23530 IF c$="B" THEN d*=h* : dl*=b 1* 

23540 IF c$="T" THEN d*=t* : dl*=t 1* 

23550 IF c*= N R" THEN d*=r* : dl*=vl* 

23560 IF c*="P" THEN d*==p* s dl*=pl* 

23600 PRINT #2,d$; 

23610 MOVE x,y-16 

23620 PRINT #2,dl$; 

23750 RETURN 

24055 IF cas=l THEN RETURN 

24500 ri$= M " • cas-0 

24510 a$=INKEY* 

24520 IF a*-"Q n THEN GOTO 1000 

24522 IF a*="C" THEN GOSUB 26500 

24524 IF cas=l THEN RETURN 

24525 IF a$="S" THEN GOSUB 31000 
24530 IF a$= ,, L" THEN GOSUB 32000 

24535 IF a*="#" THEN z*( count , 1 > = " F F " : GO 

TO 35000 

24540 IF a$="R n THEN GOTO 25500 

24545 a*=UPPER*<a*> 

24550 IF a*<"A" OR a*> M H" THEN GOTO 2451 



24555 n*=a*: SOUND 2 , 150 ,5 , 15: PRINT #3,r.$ 



24560 a*=INKEY* 

24570 IF a*<"l" OR a*>"9" THEN GOTO 2456 
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24580 
,a«; 

24590 
24980 
25000 
25080 
25090 
25100 
25110 



n*=n*+ a *: SOUND 2 , 150 ,5 , 15: PRINT #3 



RETURN 
REM >> 
GOSUB 
SOUND 

ro = s 1 



move 



26000 

2,300,7? 



,1! 



co = s : GOSUB 25200 
m*(sl , s)~m*<f 1 , f > 
IF play=l AND fl=l 



AND m*(f 1 ,f > = 



:»p 



" THEN m*<f 1 ,f )= M q" 
25120 IF pi ay =2 AND fl=S 
" THEN m*<f 1 , f }= M Q M 



AND m$(f 1 ,f >="P 



25130 

25140 

25150 

25160 

25170 

25200 

25210 

25220 

25230 

25240 

25250 

25260 

25270 

25280 

25300 

25310 

25320 

25330 

R 1 

25340 

25350 

25360 

25480 

25490 

25500 



ro=sl :co=s : GOSUB 25200 

SOUND 2, 100,20, 15 

ro=f 1 : co=f sGOSUB 25200 

m*<fl,f>= M M 

RETURN 

>;=25 ' y=390 

FOR n=l 

FOR m=l 

IF n = r o 

x=x+4S 

NEXT m 

x=25:y=y 

NEXT n 

RETURN 

c*=m*<n ,m> 

IF c*=" " THEN 

IF c%<"a." THEN 



TO 8 
TO 8 
AND m=co THEN GOSUB 25300 



-48 



RETURN 
col=2 ELSE 



coi«; 



330 IF TEST<X"2,y+2>=3 THEN col=col XO 

PLOT 0,0, col :MOWE x,y 

GOSUB 23500 

RETURN 

REM 

REN * * * remove * * * 

SOUND 2 , 300 , 40 ,15: SOUND 2 , 400 , 50 , 1 



WINDOW #4,35,40,22,24 
25515 PAPER #4,0: PEN #4,1 
25520 INPUT #4, "Piece M , f $ 
25525 f*=UPPER*<f*> 
25530 s*= M Al" : GOSUB 26000 
25540 GOSUB 23000 
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25550 m*<fl,f) s =" " 

25560 z$( count , 1 >=f *s z$(count ,2}=f * 

25570 c o un t- c o un t + 1 

25580 IF count=101 THEN count=l 

25590 CLS #4 

25600 GGSUB 23000 

25610 IF play=l THEN play=2:GGSUB 28000 

25620 GOTO 1500 

2 5 9 8 REM > > > > > > > > > > convert < < < < < < < < < < 

26000 f = ASC <LEFT*(f*,l ) > 

26010 f=f-64 

26020 f l=VAL(RIGHT*<f*, 1 > > 

26030 fl=9-fl 

26040 s=ASC<LEFT*Cs*, 1 > > 

26050 s==s-64 

26060 sl=VAL<RIGHT*<s*, 1 > > 

26070 s 1=9-5 1 

26080 RETURN 

26100 f*=CHR*(f+64>+HEX*<9-f 1 , 1 > 

26130 s*=CHR*<s+64>+HEX*(9»sl , 1 > 

26150 z*< count , 1 )=f * 

26160 z$( count ,2) = s$ 

26170 co un t = c o un t + 1 

26180 RETURN 

26480 REM > > > > > > > > > > c a s 1 1 i n g < < < < < < < < < 

26500 PRINT #3,"C"; 

26505 SOUND 2 , 600 , 25 , 15: SOUND 2,400,25,1 

5 s SOUND 2,200,25, 15 

26510 a*«INKEY*:a*=UPPER*<a*> 

26520 IF a*<>"L" AND a*<> M R" THEN GOTO 2 

6510 

26530 PRINT #3, a* 

26535 n*»"C"+a*: cas=l :RETURN 

26540 s*« M AS" :a*=RIGHT*(f*,l)sGOSUB 2600 

0: check=l 

26545 IF <play=l AND a*= M L" AND m$(8,l)< 

>"r"> OR <play=l AND a*="R" AND m$(8,8>< 

>"r ,, > THEN RETURN 

26550 IF (play =2 AND a*= ,, L" AND m*(l,i:>< 

>"R H > OR (pi ay =2 AND a*= n R" AND m*<l,8)< 

>"R"> THEN RETURN 

26560 IF play=l AND m*(S ,5}<>" k " THEN RE 

TURN 

26570 IF play=2 AND m*<l,5><>"K" THEN RE 

TURN 
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26575 au=l:er.=7: IF play=l THEN lin = 8 ELS 
E lin=l 

26580 IF a*="L" THEN au=-l:en=2 

26590 FOR n=5+au TO en STEP an 

26600 IF m*(liri,ri)<>" " THEN n=en : RETURN 

26610 NEXT n 

26620 f 1 = 1 in : f =5: sl = f 1 : s=5+2*au 

26630 GOSUB 23000 

26640 m$<fl,f}=" ":m$(sl,5) = ,, k" 

26645 GOSUB 26100 

26650 IF lin=l THEN m$(5i,5)= H K" 

26655 z*< count , 1>="CC" : z*< count , 2>="CC" : 

count==count + l 

26660 f 1 = 1 in : f = en+au: sl-f 1 : s=5+au 

26670 m*<fl,f>=" ,, :m*(5l,s) = ,l r n 

26675 GOSUB 26100 

26680 IF lin=l THEN m$(sl ,s)="R" 

26685 GOSUB 23000 

26690 chec k =0 : R E TURN 

26980 REN > > > > > > > > > > validate < < < < < < < < < 

27000 GOSUB 26000 

27010 check=l 

27020 c$=m$(fl , f > :d$=m$(sl , s ) 

27030 IF c*=" " THEN RETURN 

27040 IF c*>"Z M AND play=2 THEN RETURN 

27050 IF c*< M a H AND play=l THEN RETURN 

27055 IF d*= M " THEN GOTO 27100 

27060 IF d*> H Z" AND play=l THEN RETURN 

27070 IF d*< ,, a M AND play=2 THEN RETURN 

27100 c*=UPPER*<c*> :d$=UPPER<*Kd$> 

27110 IF d$="K" THEN RETURN 

27150 IF c$="P" THEN GOTO 27300 

27160 IF c*="R" THEN GOTO 27400 

27170 IF c$="T" THEN GOTO 27500 

27180 IF cS^'D" THEN GOTO 27600 

27190 IF c*="Q" THEN GOTO 27700 

27200 IF c*= ,, K n THEN GOTO 27300 

27230 check=0 

27240 IF c*= ,, K M OR c$="P" OR c$= M T" THEN 

RETURN 
27250 GOSUB 27900 
27260 RETURN 

27290 REM * * * pawn * * * 
27300 IF play=l AND sl>fl THEN RETURN 
27310 IF play=2 AND fl>sl THEN RETURN 
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27320 dis=*SGN<sl-f l>*<sl-f 1 > £ IF dis=l TH 

EN GOTO 27375 

27330 IF dis>2 THEN RETURN 

27340 IF sOf THEN RETURN 

27350 IF pi ay =2 AND fl=2 AND m*(3,f)= M " 

THEN GOTO 27335 
27360 IF play=l AND fl=7 AND m*<6,f> = " lt 

THEN GOTO 27385 
27370 RETURN 

27375 IF s=f AND d*= M " THEN GOTO 273S5 
27377 IF SGN<s-f >*<s-f )=1 AND d*<>" M TH 
EN GOTO 27385 
27380 RETURN 
27385 GOTO 27230 
27390 REN * # * rook * * * 
27400 IF flOsl AND fOs THEN RETURN 
27485 GOTO 27230 
27490 REN * * * knight # * * 
27500 IF sl=fl+2 AND s=f-l THEN GOTO 275 
80 

27510 IF sl=fl+2 AND s = f + l THEN GOTO 275 
80 

27520 IF sl=fl-2 AND s = f-l THEN GOTO 275 
80 

27530 IF sl=fl-2 AND s = f+l THEN GOTO 275 
80 

27540 IF si=fl+l AND s = f-2 THEN GOTO 275 
80 

27550 IF sl=fl+l AND s = f+2 THEN GOTO 275 
80 

27560 IF sl=fl-l AND s = f-2 THEN GOTO 275 
30 

27570 IF sl=fl-l AND s=f+2 THEN GOTO 275 
80 

27575 RETURN 
27580 GOTO 27230 
27590 REM * * * bishop * * * 
27600 xd=f-s : xd-SGN< xd>*xd 
27610 yd=f 1-sl : yd=SGN<yd>*yd 
27620 IF xdOyd THEN RETURN 
27685 GOTO 27230 
27690 REM * * * queen * * * 
27700 xd=f-s: x d=SGN < x d > * x d 
27710 yd=f 1-sl = yd=SGN(yd> *yd 
27720 IF xd=yd THEN GOTO 27785 
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27730 IF flOsl AND fOs THEN RETURN 

27785 GOTO 27230 

27790 REM * * * king * * * 

27800 IF SGN<f l-sl>*<f l-sl)<>l AND SGN(f 

-s)*(f-s)<>l THEN RETURN 

27885 GOTO 27230 

27890 REM * * * check path * * * 

27900 nd-0 = md~0 

27910 IF fl>sl THEN nd = -l 

27915 IF sl>fl THEN nd=l 

27920 IF f>s THEN md=-l 

27925 IF s>f THEN md=i 

27930 cn=f 1 : cm=f 

27940 cn=cri+rids cm=cm+md 

27950 IF cr.-sl AND cm=s THEN RETURN 

27960 IF m*< en, cm ><> M " THEN check=l:RET 

URN 

27970 GOTO 27940 

27980 REM > > > > > > > > > > > > t u rn < < < < < < < < < < < 

2 8 G S U B 24 

28005 LOCATE #3 , I , 1 1 : PRINT #3," 
it 

28010 IF cas=i THEN GOSUB 26540 ELSE GOS 

UB 27000 

28020 IF check=0 THEN GOTO 28050 

28030 LOCATE #3 , 1 , 1 1 : PRINT #3," INVALID M 

OVE" 

28040 SOUND 2 , 500 , 40 ,15,0, , 20 : GOTO 2800 



28050 IF cas=l THEN GOTO 28090 

28055 2$<count,l>=f* 

28060 z*(courit,2) = s* 

28070 count=count+l : IF count=101 THEN co 

unt-l 

2 8 8 G SUB 2 5 © 

28090 RETURN 

28980 R E M > > > > > > > > both players < 

29000 play=l 

290 1 GOSUB 28000 

29020 play=2 

2903 G Ci S U B 2 8 

29040 RETURN 

29980 REM > > > > > > > > > > set boar- d < < < < < < ■= 

30000 x = 25 : y==390 

30010 FOR n=l TO 8 



<. <. <* •': 



Chess Duel 75 



30020 FOR m=l TO 8 
30030 SOUND 2 , 250 , 20 , 1 5 
30040 m$0"i,m} = u " : x*(n 5 m> = " " 
3 5 G S LI B 3 5 
30 1 30 PLOT 0,0, 
30140 x=x+43 
30150 NEXT m 
30160 x~25 = y-y-43 

30170 NEXT n 

30130 LOCATE 27,18=PRINT "IS THIS O.K. 



LOCATE 27,20: PRINT SPC(14> 

a*=INKEY*:a*=UPPER*<;a$) 

IF a^-Y" THEN c he ck = © : RETURN 

IF a*= H N" THEN check=l :RETURN 

GOTO 30200 

REM * * * input * * * 

PLOT 0,0,2 
30510 MOVE x,y:PRINT #2,"?"; 
30520 d*=INKEY*: c*=UPPER*<d*> 

IF d*=" M THEN GOTO 30520 

PLOT 0,0,2 

MOVE x,y:PRIIMT #2,"?"; 

IF c*O n R" AND c$<>"N M AND c*< 
AND <:*<>" Q" AND c*<> ,, K M AND c$<>' , P M 
N RETURN 
30570 SOUND 2 , 1 00 , 20 , 1 5 



301 90 
30200 
30210 
30220 
30230 
30490 
30500 



30530 
30540 
30550 
3056.0 



> M B" 
THE 



30590 IF d*= M N M THEN 
30600 m$ ( n , m > = d* 
30605 x $ < n , m ) = d* 



d*= 



c*=d* 

IF c*< n a l 



THEN col=2 ELSE col=3 



30610 

30620 

30630 IF TEST<x-2,y+2>=3 THEN col=col XO 

R 1 

30640 

30650 



PLOT 0,0, col 
MOVE x,y 

£3500 



30660 GOSUB 

30670 RETURN 

31040 g*=g*+m*(n , m)+x$<n ,m) 

31110 OPENOUT "! CHESS" 

32010 OPENIN "! CHESS" 

32050 m*<ri,m) = LEFT*<g*, 1 > : x*<n , m>=MID*<; g 

$ , 2 , 1 > 

32060 g*-R I GHT* < g* , L E N < g$ > -2 > 
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34980 
35000 
35010 
35015 
35020 
35025 
35030 
35040 



35050 
35060 
35070 
35075 



350S0 
35090 



REM > > > > > > > > > > > replay < < < < < < < < < < 

count=0:play=l 

F OR n - 1 T O 8 : F R m - 1 T O S 

m$(n , m)=x$(n , m) 

NEXT m:NEXT n 

GOSUB 20000 : GOSUB 23000 

count=count+l 

IF 2 *<coLmt,l>="FF" THEN GOTO 3550 

f$~z$< count , 1 ) : 5$=z$(count ,2) 

G S U B 2 6 : G S U B 25 

coun t~count+l 

IF z*<count 1 l> = ,, CC" THEN GOTO 3503 



a*=INKEY* 

IF a*=" n THEN GOTO 35080 
5095 play-2 

IF a$= M #" THEN GOTO 35500 



IF z*<count,l)="FF" THEN GOTO 



50 





35120 

35130 

35135 

ount+'I 

35 1 40 

35150 

35 1 55 

35 1 60 

35170 

35500 

35510 



f $=z$< count , 1 > "- s* = z*< count ,2) 
G O S U B 2 6 - G SUB 2 5 
IF z$(count+i , 1> = ,, CC" THEN count=c 
::GOTO 351 10 
a*=INKEY* 
IP a *='» » THEN GOTO 35140 

P lay-i 

IF a*="#" THEN GOTO 35500 

GOTO -35030 

IF play=l THEN GOTO 1500 

GOSUB 2 3000 ' GOTO 1 500 



Now 'MERGE' the 'BOARD CORE' routine 



9 

Gusiavus 




A Novel Strategy Game for Two 

As far as I am aware this is the first computer implementation of 
Simple Simmons, a game usually played with pencil and paper. 

Simple Simmons or Sim was invented by a chap called Gustavus 
Simmons. We have decided to call this computer version of the game 
Gustavus as it sounds more grand than its paper cousin. 

The game requires players alternately to draw a line between two 
points. The first to form a triangle of his own colour, whose points 
each rest on one of the original points, is the loser. The trick is to force 
your opponent into making the fatal triangle first. 

The computer will take care of the turns together with the colour 
changes and will indicate the winner when a triangle is formed. 

Lines are drawn by moving the flashing cross, clockwise or anti- 
clockwise, using either left or right cursor keys or joystick. When the 
cross is on the first point from which a line is required the copy key or 
fire button is pressed. A bleep signifies acceptance of the line origin. 
The cursor is next moved to the destination location, then as the copy 
key or fire button is pressed the line will be drawn. If an invalid line is 
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attempted a sound will indicate the fact. New start and finish points 
will then be required. 

The game cannot end in a draw and there is no apparent advantage 
gained by being the first player. This game is very good for 
developing spacial awareness! 



1 REM <<<<< 

2 REM 
1000 GO SUB 



gustavus 



ISBI/JIM 



1100 
1110 
1200 
1300 

1310 
1390 

1400 

1410 
1420 
1430 
1440 
1450 
1460 
1 9980 

20000 
20010 

20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 

20 1 00 
20110 

20 1 20 
20130 
20140 
20 1 50 
20160 
20500 
20980 
2 1 000 
21010 
21020 



21000 
20000 

22000 
26000 

TO 1000 



GOSUB 

GOSUB 

GOSUB 

FOR n=l 

NEXT n 

IF play=l THEN win=2 ELSE win=l 

LOCATE 14,24 

IF win=l THEN 

PRINT "PLAYER 

a*=INKEY* 

IF a*= 1 " 1 THEN GOTO 1430 

INK 1,26 



PEN 2 ELSE 
" ; win ; "won 



PEN 



1 100 



>,1 
3 , 

8.0 



GOTO 

REM > > > > > > > > > > scree n < < < < < < < 
INK 0,0: INK 1,26: INK 2,6: INK 
BORDER 0: PAPER 0:PEN i:MODE 
LOCATE 17,1 :PRINT "GUSTAVUS" 

LOCATE 16,2: PRINT " 

FOR n=l TO 6 

PLOT p<n, 1 > ,p(n ,: 

DRAWR 0,3: DRAWR - 

DRAWR 0,-8: DRAWR 

NEXT n 

LOCATE 1,10 

PEN 2 

PRINT "PLAYER 1" 

LOCATE 33, 10 

PEN 3 

PRINT "PLAYER 2" 

TAG #3 

PRINT CHR*(23> jCHR*<1> ; 

RETURN 

REM > > > > > > > > > initializi 

DIM p<6,2> 

RESTORE 21000 

FOR n=l TO 6 



3 , 20 
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21030 READ p<n, 1 > 

21040 READ p<n,2> 

21050 NEXT n 

21060 DIM d<6,6> 

21090 RETURN 

21100 DATA 320,300,440,: 



^40,440, 110 



21110 DATA 320,50,200,110,200,240 



REM > > > > > > > > > start game 

FOR n=l TO 6 

FOR m=l TO 6 

<i(.Vi ,m>=0 

IF n~m THEN d<n,m>=3 

NEXT m 

NEXT n 

RETURN 

R E M > > > > > > > > > joystick < < 

le=0: ri=0: f i=0 

a=JOY(0> 

b=JOY<l> 

a=a OR b 

IF <a AND 

IF (a AND 

IF <a AND 

a*=INKEY* 

IF a*=CHR*<242) 

IF a*=CHR*C243> 

IF a*=CHR*<"224'> 



: -. \ < 



4>=4 THEN le=l 
8} =8 THEN ri = l 
16>=16 THEN fi = l 



21980 

22000 

22010 

22020 

22030 

22040 

22050 

22250 

22980 

23000 

230 1 

23020 

23030 

23040 

23050 

23060 

23070 

23080 

23090 

23100 

23120 FOR p=l 

23150 RETURN 

23980 REM >>> 

24000 point=l 

ELSE PLOT 0,0,3 

24010 MOVE p(point , l>™10,p<point ,2> 

24020 PRINT #3 f CHR*<159>; 
GOSUB 23000 

IF fi=l THEN GOTO 24150 
MOVE p (point , 1 >-10 , p (po int , 2) 
PRINT #3,CHR*<159)$ 
IF le=l THEN po int=po int-1 
IF ri=l THEN po int=po in t+1 
IF point=7 THEN point=l 
IF poir.t=0 THEN point=6 
GOTO 24010 



THEN 
THEN 
THEN 
TO 50:NEXT p 



le=l 

r i = 1 
f i = l 



> > > s > > > > move <,-\<\<<.\ 
IF play-1 THEN PLOT 



: s \ \ \ 



24030 
24040 
24050 
24060 
24070 
24080 
24090 
24 1 00 
24120 
24150 
24160 



+ 10 



10 



SOUND 



, 200 , 



15 



FOR w-1 TO 300 
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24170 
24180 
24190 
24200 
24210 
24220 
24230 
24250 
24980 
25000 
250 1 
25020 
25030 
25035 
25040 
OTO 



b*=INKEY* 

NEXT w 

RETURN 

MOVE p(fro , 1 >-10,p<f ro ,: 

PRINT #3,CHR*< 159); 

MOVE p(des,l>-10,p<des,: 

PRINT #3,CHR*<159>j 

RETURN 



> + 1 



:> + 10 



REM >>>>>>> 
GOSUB 24000 
f ro=poirit 
GOSUB 24000 
des=point 
GOSUB 24200 
IF fro=des 
25200 



turn 



OR ct < fro.des ) < >0 THEN G 



PLOT p ( f ro , 1 > , p < f r o , 2 > 

DRAW p(des , 1 > , p(des ,2) 

d(des, fro) -play 

d < fr-o,des) =p 1 ay 

FOR n=l TO 6 

IF d(des,n>=play AND d(n , f ro >=p lay 

dead=l: GOSUB 27000 

NEXT n 

RETURN 

SOUND 2,200,20, 15= SOUND 2,300,20,1 
5: SOUND 2,400,40,15 
25210 GOTO 25000 

REM > > > > > > > > > > > > both < < < < < < < < < < < 

dead=0: INK 2,6,24 

p 1 ay= 1 s GOSUB 25000 

INK 2,6 

IF dead=l THEN RETURN 

INK 3,20,11 
26050 p 1 ay==2 : GOSUB 25000 
26060 IF dead=l THEN RETURN 

INK 3,20 

GOTO 26000 

REM > > > > > > > > > > highlight < < < < < < < < 

PRINT CHR*<;23:> ;CHR*<;0>; 

INK 1,8, 15: INK 2,6: INK 3,20 

PLOT p ( f ro , 1 > , p < f ro , 2 > , 1 

DRAW p(n , 1 > ,p<n ,2) 

DRAW p(des , 1} ,p(des ,2) 



25050 
25060 
25070 
25080 
25090 
25110 
THEN 
25130 
25190 
25200 



25980 
26000 
26010 
26020 
26030 
26040 



26070 
26080 
26980 
27000 
27005 
27010 
27020 
27030 
27040 



DRAW p < f ro , 1 > , p ( f r-o , 2 ) 



27050 PRINT CHR*<;23> ;CHR*<;i) ; 

27060 FOR 5=200 TO 1 STEP-1 

27070 SOUND 2,5,1,15 

270S0 NEXT s 

27100 RETURN 



Gustavus 81 



IO 
Dice Derby 




Shake! 

This is the first of a dice trio to be followed by Snake Eves and Craps, 
All three use the same central routines and a menu is provided to 
select between the games. This will produce an enjoyable set of dice 
games and save a lot of typing. 

Dice Derby is a race game in which the dice total is used to 
determine how far each horse travels. It can be played by two to four 
players and has an attractive shaking cup feature. 

The fire button is pressed to start the roll and again to finish. This 
means that each player can exercise control over the duration of each 
shake. 

The characters will race along until one is declared the winner. The 
winner is not determined until the last throw of the round and so 
some very close 'photo finishes' are possible. 

It is possible to end the game and return to the menu by pressing 
'Shift' 4 Q' for quit. Another game can then be selected. 

Notes on typing in: the three dice games that follow can use the 
same routine called Dicerama! This should be typed first and then 



Dice Derby 83 

saved onto tape. The games can then be added one by one. Of course 
it will not be possible to select a game from the menu if it has not yet 
been entered. 

1 REM <<<<<<< dicerar-ma <> I SSI >>>>>>> 

2 REM 

100 ENV 1,1,-5,10,1,5,5 

500 EVERY 500 GOSUB 5000:GGSUB 22000 

1 000 GOSUB 20000 : P E N 2 

1010 LOCATE 4,3:PRINT " 1 > Dice Derby" 

1020 LOCATE 4,6: PEN 3: PR I NT "2> Snake Ey 

es":EI 

1030 LOCATE 4,9:PEN 4:PRINT "3> Craps." 

1050 a*-INKEY*:lF a$=" M THEN GOTO 1050 

1 060 SOUND 2 , 200 , 25 , 1 5 

1070 ON V/AL (a$ > GOTO 40000 , 50000 , 60000 

1 100 GOTO 1050 

2000 PEN 8: LOCATE 4, 10: PRINT "Press any 

Key" 

2010 a*=INKEY*:lF a$=" " THEN GOTO 2010 

2030 GOTO 1000 

5000 DI :a*=INKEY$ 

5010 IF a*= !, Q M THEN RUN ELSE RETURN 

19980 REM > > > > > > > > > > scree n < < < < < < < < < < < 

20000 RESTORE 20000 

20010 FOR n=0 TO 15 

20020 READ a 

20030 INK n,a 

20040 NEXT n 

20050 DATA 0,26,18,2,6,24,20,3 

20060 DATA 3,0,0,0,0,0,0,0 

20070 PAPER 0:PEN 1: BORDER 0:MODE 

20030 PR I NT CHR* C 23 > ; CHR* ( > ; 

20090 PLOT 10, 10,1: DRAW 629, 10: DRAW 629, 

1 90 : DRAW 10,1 90 : DRAW 1 , 1 

20100 PLOT 0,0,1: DRAW 639,0: DRAW 639,200 

:DRAW 0,200: DRAW 0,0 

20110 PLOT 40,40, 13: DRAW 80, 30: DRAW 120, 

30: DRAW 160,40 

20120 DRAW 130, 160: DRAW 100, 155: DRAW 70, 

160: DRAW 40,40 

20130 PLOT 130, 160: DRAW 100, 165: DRAW 70, 

160 

20150 PLOT 50,45, 12: DRAW 90 , 35 : DRAW 130, 
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20160 DRAW 140, 165: DRAW 110, 160: DRAW 80, 

165: DRAW 50,45 

20170 PLOT 140, 165: DRAW 110, 170: DRAW 80, 

165 

20180 PLOT 180,40, 11 :DRAW 180,80: DRAW 18 

5,110:DRAW 195, 150 

20 1 90 DRAW 205 ,110: DRAW 200 , 80 : DRAW 1 80 , 

40 

20200 DRAW 325,45: DRAW 335, 75: DRAW 330,1 

05: DRAW 195,150 

20210 PLOT 60,50, 15:DRAW 60 , 80 : DRAW 100, 

80: DRAW 100,50: DRAW 60,50 

20220 PLOT 110,50, 15: DRAW 11 0,80: DRAW 15 

, 30 : DRAW 1 50 , 50 : DRAW 1 1 , 50 

20230 PLOT 60, 80: DRAW 80 , 90 : DRAW 120,90: 

DRAW 100,80 

20240 PLOT 110, 80: DRAW 130, 90: DRAW 170,9 

: DRAW 1 70 , 60 : DRAW 1 50 , 50 

20250 PLOT 170, 90: DRAW 150,80 

20500 RETURN 

20980 REM > > > > > > > > > > rat tie < < < < < < < < < < < 

21000 GOSUB 20090 

21010 INK 11,0: INK 15,0 

2 1 020 I HK 13,24:1 NK 1 2 , 

21030 FOR q=l TO 25: NEXT q 

2 1 040 SOUND 1 , 200 ,1,15 

21050 INK 12,24: INK 13,0 

21060 FOR q=l TO 25: NEXT q 

2 1 070 SOUND 1,100,1,15 

21160 dl=INT(RND( 1)*6>+1 

21170 d2=INT<RND<l>*6)+l 

21190 a*=INKEY*:IF a$=" " THEN 21010 

21200 INK 13,0: INK 12,0 

21210 INK 11,24:INK 15,20 

21220 SOUND 2,150,25,15 

21230 ch=dl:GOSUB 21400 

21240 IF 5<i>=l THEN PLOT 70,72 

21250 IF s(2)=l THEN PLOT 70,65 

21260 IF s<3>=l THEN PLOT 70,58 

21270 IF s(4>=l THEN PLOT 95,72 

21280 IF s(5>=l THEN PLOT 95,65 

21290 IF 5<6}=1 THEN PLOT 95,58 

21300 IF s<7>=1 THEN PLOT 82,65 

21310 ch=d2: GOSUB 21400 

21320 IF 5<1>=1 THEN PLOT 113,72 
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21330 IF s<2)-l THEN PLOT 118,65 

21340 IF s<3>=1 THEN PLOT 118,53 

21350 IF s<4}=1 THEN PLOT 140,72 

21360 IF s<5>=l THEN PLOT 140,65 

21370 IF s(6>=l THEN PLOT 140,58 

21380 IF s(7>=l THEN PLOT 123,65 

21390 RETURN 

21400 IF ch = <Z> THEN ch=i 

21405 IF ch=l THEN RESTORE 21500 

21410 IF ch=2 THEN RESTORE 21510 

21420 IF ch=3 THEN RESTORE 21520 

21430 IF ch=4 THEN RESTORE 21530 

21440 IF ch=5 THEN RESTORE 21540 

21450 IF ch=6 THEN RESTORE 21550 

21460 FOR n=l TO 7 

21470 READ s<n>:NEXT n 

21430 RETURN 

21500 DATA 0,0,0,0,0,0,1 

21510 DATA 1,0,0,0,0,1,0 

21520 DATA 0,0,1,1,0,^,1 

21530 DATA 1,0,1,1,0,1,0 

21540 DATA 1,0,1,1,0,1,1 

21550 DATA 1,1,1,1,1,1,0 

2 1 980 REM > > > > > > > > i n i t i a 1 i z e < < < < < < < < < 

22000 DIM s(7):DIM p (4, 3): DIM o(4) 

22050 RETURN 

22480 REM > > > > > > > > > > > clear < < < < < < < < < < < 

22500 LOCATE 1,1 

22510 FOR n=l TO 240 

22520 PRINT " " ; 

22530 SOUND 2 , 24 1 -n , 1 , 1 5 

22540 NEXT n 

22580 LOCATE 1,1: RETURN 

22930 REM >>>>>>>>>> players <<<<<<<<<< 

23000 GOSUB 22500 

23010 PRINT "PLAYERS ? <2~4> 

23020 a*=INKEY* 

23030 IF a*< n 2" OR a*> n 4 n THEN 23020 

23040 SOUND 2 , 300 , 25 ,15: SOUND 2 , 200 , 25 , 1 

5 : SOUND 2 , 1 00 , 25 , 1 5 

23050 GOSUB 22500 

23060 FOR n=l TO 4 

23070 p(n,l)=0 

23080 NEXT n 

23090 play=VAL<a*> 
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23 1 00 F OR n = 1 TO p 1 ay 

23110 o<n)=l 

23120 NEXT n 

23130 FOR q-r. TO 4 

23140 o<q>=0 

23150 NEXT q 

23250 RETURN 

39930 p ^ (vj y y y y y y y y dice d e r by < < < < < < < < < 

4 G S U B 2 3 
40010 FOR n=l TO 4 
40020 p < n , 1 > =8 : p < n , 2 > =384-n *32 
40030 NEXT n 
40035 PEN 6 
40040 RESTORE 40100 
40050 FOR n=l TO 12 
40052 IF n=d THEN PEN 3 
40054 IF ri=10 THEN PEN 6 
40060 READ a 
40070 LOCATE 20 , n 
40080 PRINT CHR*<a>; 
40090 NEXT n 

40100 DATA 235,149,149,70,73,73,73,83,72 
, 149, 149, 191 
40150 GOSUB 49000 
40200 FOR w=l TO play 
40204 PEN w+1 

40210 LOCATE 13,15:PRINT "PLAYER"; 
40220 LOCATE 15, 17: PRINT w 
40230 SOUND 2,200,50,15 
40240 a*=INKEY* 

40250 IF a$=" n THEN GOTO 40240 
40260 PLOT 0,0,0: GOSUB 21230 
40270 GOSUB 21000 
40275 FOR d=l TO (dl+d2>*2 

40230 SOUND 2, 400, 1,15: PRINT CHR*<23);CH 
R*< 1> ; : GOSUB 49000 
40290 p<w, l)=p<w, l)+4 
40300 SOUND 2 , 200 ,1,15: GOSUB 49000 : PR INT 

CHR* < 23 ) ; CHR* ( > ; 
40310 NEXT d 
40350 NEXT w 
40360 wiri = 
40370 FOR n=l TO 4 
40380 IF win>0 THEN GOTO 40400 
40390 IF p < n , 1 > >570 THEN w i n-n 
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40400 
40410 
40450 
40460 
40500 
40510 
40520 
40530 
40540 
40590 
40600 
40610 
40620 
40630 
49000 
49010 
49020 
49030 
49040 
49050 
49060 
49070 
490S0 



NEXT n 

IF win=0 THEN GOTO 40200 

GOSUB 22500 

PRINT " Player "5 win;" won 

RESTORE 40600 

FOR n=l TO 13 

READ a,b 

SOUND 2, a, b, 15,1 ,0 

NEXT n 

GOTO 2000 

DATA 319,50,284,2 

DATA 

DATA 234, 

DATA 284,20 

FOR n=l TO 4 

TAG #1 

PLOT 0,0,n+l 

MOVE p(n , 1> ,p(n ,2) 

PRINT #1 ,CHR*<234) ; 

TAGOFF 

NEXT n 

PLOT 0,0,1 

RETURN 



53 , 20 , 284 , 20 ,319,! 



>0,: 



e> . 



>V , 



>0,: 

50 
I0j 



t , 20 
319, 1 



_* , +. 



ZQ> 



II 

Snake Eyes 




Rattle! 

This is the second of the three dice games. Dice Derby must be 
entered first and then Snake Eves can be added. The instructions for 
throwing the dice are the same. 

The game is for two to four players and includes on-screen betting. 
At the start the target pot is entered, which may be between £40 and 
£400. The bank starts at £0. 

Each player then rolls the dice. If a double is thrown then the player 
wins the bank amount. IPSnake Eyes' (two ones) is thrown then the 
player gets twice the bank total. The bank resets to zero when it pays 
out. 

After each round the bank gets £5 if the target set is below£200 and 
£10 if the target is above £200. 

The game continues until a player's cash reaches the target score. 

It may be interesting to change the amount to the bank after each 
round to provide a larger fc pof! 
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49930 REM >>>>>>>> snake eyes <<<<<<<<< 

50000 GGSUB 23000 

50010 WINDOW #5,1,20,9,11:PEN #5,2 

50020 PRINT " Enter Win Score ?" 

50030 I NPUT #5 , 1 i m s I F 1 i m >400 OR 1 i m< 40 

THEN GOTO 50000 

50040 upda=5: GOSUB 22500 : I F lim>200 THEN 

upda=10 
50050 PEN 2:L0CATE 3,1:PRINT " 1 " 
50060 PEN 3SL0CATE 3,1 -'PRINT "2" 
50070 PEN 4: LOCATE 13,1: PRINT "3" 
50030 PEN 5: LOCATE 13,1: PRINT "4" 
50090 PEN 6: LOCATE 1,2: PRINT STRING$<20, 
45); 

50100 PEN 6: LOCATE 1,12: PR I NT STRING* (20 
i45>j 

50110 PEN 3 ".LOCATE 1,3: PR I NT STRING* (20, 
45); 

50150 kit=0 
50 1 70 k i t = k i t + up da 
50130 per=l 

50190 FOR n-1 TO 4: LOCATE n*5~4,4 
50195 PRINT p(n,l>:NEXT n 

50200 PEN per+l: LOCATE 13, 15: PRINT "PLAY 
ER" 

50210 LOCATE 15,17:PRINT per 
50220 GOSUB 50500 : I F p < p e r , 1 > > 1 i m THEN G 
OTO 55000 

50230 per-per+i : IF per>play THEN GOTO 50 
170 

50240 GOTO 50190 
50500 a*=INKEY* 

50510 IF a$=" M THEN GOTO 50500 
50540 CLS #5:PRINT #5,"Bank stands at";k 
it 

50550 PLOT 0,0,0: GOSUB 21230 
50560 GOSUB 21000 

50570 IF dl=l AND d2=l THEN GOSUB 50600 
50530 IF dl=d2 AND dlOl THEN GOSUB 5070 



50590 RETURN 

50600 SOUND 2 , 300 ,25,15: SOUND 2 , 200 ,25,1 

5 

506 1 SOUND 2 , 1 00 , 25 ,15: SOUND 2 , 300 , 25 , 1 
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5062(d) p ( p e r , 1 > =p < p e r , 1 ) + k i t *2 

50630 kit-0 

50640 RETURN 

50700 SOUND 2 , 400 , 25 , 1 5 : SOUND 2 , 200 , 50 , 1 

5 

507 1 SOUND 2 , 400 , 25 , 1 5 : SOUND 2 , 1 00 , 50 , 1 

5 

50720 p < p er,i > =p < p e r , 1 ) + k i t 

50730 ki t=0 

50740 RETURN 

55000 win=per 

55010 GOTO 40450 



12 
Craps 




. . . and Roll! 

Here it is, the micro version of the American dice game featured in 
gangster movies and TV shows. 

Two to four players can now pretend that they are in Las Vegas 
courtesy of the Amstrad. 

At the start of the game each player has £100 (you can change it to 
dollars if you want more realism!). A bet is placed up to the total 
holding of each player on his turn. Then the fun begins. 

If a 7 or 1 1 is thrown first then they are paid evens. If 2, 3 or 12 is 
thrown the turn ends and the stake is lost. Any other total becomes 
the point. This is then the total to roll for. 

The player continues to roll until the point is reached, paying 
evens, or a 7 is thrown in which case it is the next player's turn. 

If a player loses all his money then he drops out and the game 
continues until only one player is left. 

Pressing 'Shift 1 'Q 1 will quit it any time. 

This listing requires that the Dice Derby listing is entered first, 
since it uses the same start routines. 
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59980 REN 



■ > > > craps < < < < < < <. -v. < <. : - 



60000 
60010 

60020 

60030 

60040 

60050 

45); 

60060 

,45); 

60065 

45); 

60070 

60080 

60090 

60100 

60 1 50 
60 1 60 
60170 
60180 
60185 
60190 
60200 
> THEN 



GOSUB 

PEN 2 

PEN 

PEN 

PEN 

PEN 



23000 
2: LOCATE 
3: LOCATE 

4: LOCATE 
5 s LOCATE 
6: LOCATE 



3,1: PRINT "1" 

8,1: PRINT "2" 

13,l:PRINT "3" 

13,1: PRINT "4" 

1,2: PR I NT STRING* (20, 



PEN 6: LOCATE 



1 , 12: 



: PRINT STRING* (20 
PEN 8:L0CATE 1,8:PRINT STRING*(20, 

ll:PEN #5,2 



WINDOW #< 
FOR n=l TO 
p(n, 1 >=100 
NEXT n 
FOR w=l TO 
FOR n=l TO 



,1,: 



n*5~4 



LOCATE 
NEXT n 
IF p ( w , 1 >< 1 
PRINT #5, n Pl 
INPUT #5, bet 
SOUND 2,300 



lay 

,4: PRINT p(r, , 1) 



THEN GOTO 60500 
ayer" ;w; "Bet ?" 
:IF bet<l OR bet>p(w,l 
, 50 ,15: GOTO 60200 
OSUB 21230 



60240 PLOT 0,0,0:GL 

60250 GOSUB 2 1 000 

60260 tot=dl+d2 

60270 IF tot=7 OR tot=ll THEN GOTO 61000 

60275 IF tot=2 OR tot=3 OR tot=12 THEN G 

OTO 62000 

60230 point=tot 

60290 PRINT #5," Roll again - - 

60295 a*=INKEY*sIF a$=" n THEN GOTO 60295 

60297 PLOT 0,0,0: GOSUB 21230 

60300 GOSUB 2 1 000 

60310 tot=dl+d2 

60320 IF tot=point THEN GOTO 61000 

60330 IF tot=7 THEN GOTO 62000 

60340 GOTO 60290 

60500 NEXT w 

60505 f lag=0s ccm=0 

60510 FOR n=l TO play 

60520 IF con=l THEN GOTO 60540 

60530 IF p(n,l>>0 AND flag=l THEN con=l 
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60535 IF p<r. ,1>>0 THEN flag=l 

60540 NEXT n 

60550 IF con-1 THEN GOTO 60150 

60560 win=® 

60570 FOR n=l TO play 

60580 IF wir.<>0 THEN GOTO 60600 

60590 IF p(n,l>>0 THEN win=n 

60600 NEXT n 

60610 GOTO 40450 

61000 CLS #5= SOUND 2 ,300 , 25 , 15 : SOUND 

00 , 25 , 1 5 : SOUND 2 , 1 00 , 40 , 1 5 

61010 PRINT #5," You win !" 

6 1 020 p<w,l>=p<w,l>+bet 

61030 GOTO 60500 

62000 CLS #5: SOUND 2, 100 ,25 , 15: SOUND 

00 , 25 , 15: SOUND 2 , 400 , 40 , 1 5 

62010 PRINT #5," You lose !" 

62020 p(w,l) =p (w, 1 > -b e t 

6 2 3 G O T 6 5 



13 

Pontoon 




A Pair can Break the Bank 

In this computer version of the well known card game the bank starts 
with £500 and each player has £100. One or two players each play 
against the bank and aim to get a total of 21. which is Pontoon. 

One card is first dealt face up to each player and one face down to 
the bank. A bet up to the total cash available may then be placed. The 
next card is dealt and various options are given to each player on their 
turn. 

'S'tick. If the total is 16 or over then pressing's' will pass play on. 

Twist. If another card is required this option may be taken by 

pressing T. 

'B'uy. Used when a hand looks good, to double the stake. 

An ace will be taken to have the best value, i.e. 1 or 1 1 dependent 
upon the other cards. If at anv time the card total exceeds 21 then play 
passes on When both plavers have finished, the bank wdl then play 
its own hand to determine payout. It should be remembered that play 
is between the players and the bank, not against each other. 
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Wins and losses are calculated as follows: highest score is Pontoon 
with two cards, e.g. 10 and a Queen. The next highest score is a 5-card 
trick, which may be any five cards which do not exceed 21 in total. 
Pontoon with any card permutation is the third high score. If none, of 
the above exist then the highest score wins. Where the bank's total 
equals that of a player then the bank wins. 

The game continues until each player has lost all available cash or 
until the bank is bust. 'Q' for Quit may be used to end a game 
prematurely. 

This program shares many lines with the following card games. 
The routines common to all should be entered first, saved and then 
the remainder entered. 

'CARD CORE' 



9990 REM >>>> GENERATE PACK <<<<<<<<<<< 

1 F OR s u i t = 1 TO 4 

1 0005 F OR c a r= 1 TO 1 3 

10010 pac*<sui t , car)=CHR*(sui t+225> 

10015 IF caKll AND car>l THEN pac$(suit 
, car)=pac$( suit, car )+STR$< car) 

10016 IF car=l THEN pac*(suit,car)=pac$( 
suit, car)+" A" 

10020 IF car~ll THEN pac*(suit,car)=pac$ 

(suit , car)+" J" 

10025 IF car=12 THEN pac$( sui t , car)=pac$ 

(suit , car') + " Q" 

10030 IF car-13 THEN pac$(suit,car)=pac$ 

(suit, car}*" K" 

10035 NEXT car 

10040 NEXT suit 

10045 RETURN 

10490 REM >>>>>> SHUFFLE PACK <<<<<<<< 

1 5 F F: n = 1 T O 5 2 

1 0505 pa( n } =n : a v ( n > = 1 

10510 NEXT n 

10515 FOR a=l TO 30 

1 0520 n 1 = I NT < RND ( 1 > *5 1 > + 1 

1 0525 r.2= I NT ( RND ( 1 ) *5 1 > + 1 

10530 cc=pa<nl) 

10535 pa<:nl>=pa<n2> 

10540 pa<n2>=cc 

10545 NEXT a 

10550 RETURN 
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10990 REM >>>>>>>> DRAW CARD <<<<<<<<< 

10995 PRINT CHR*(24); 

11000 LOCATE ot-1 , cy 

11005 PAPER 0:PEN l: PRINT CHR*(230) ; : FOR 

z = l TO 5: PRINT CHR*(224) ; : NEXT z: PRINT 
CHR* (231) 
11010 LOCATE cx~l,cy+l 

11020 PRINT CHR*(234) ;: PAPER 1 s PEN 0:PRI 
NT RIGHT*(pac*(sui t , car) ,2) ; 

1 1021 IF LEFT*<pac*<sui t , car) , 1 )=CHR*(22 
7) OR LEFT*(pac*(suit , car) , 1)=CHR*(223) 
THEN PAPER 1 : PEN 2 ELSE PAPER 1 : PEN Q> 

11022 PRINT LEFT*(pac*(suit , car) , 1) ; :PAP 
ER 0:PEN 1 SPRINT CHR*( 143) ; CHR*( 143) ; CHR 
*(235) 

11025 LOCATE cx-i,cy+2 

11030 PRINT CHR* < 234) ; : FOR z=l TO 5:PRIN 
T CHR* < 143); sNEXT z: PRINT CHR* (235) 
1 1035 LOCATE cx-1 , cy+3 

11040 PRINT CHR* (234) ; CHR* (143) ; CHR* (143 
) ; : IF LEFT*(pac*(sui t , car) , 1 )=CHR*(227) 
OR LEFT*(pac*(suit , car) , 1 ;>=CHR*<228> THE 
N PAPER l:PEN 2: ELSE PAPER 1 : PEN 
11045 PRINT LEFT*(pac*(suit , car ) , 1 ) ; : PEN 
l: PAPER 0:PRINT CHR*( 143) ; CHR*( 143) ; CHR 
*(235) 

11050 LOCATE cx-l,cy+4 

11055 PRINT CHR*(234) ; :FOR z=l TO 5:PRIN 
T CHR*< 143);: NEXT z: PRINT CHR*(235) 
11060 LOCATE cx-l,cy+5 

1 1 065 PR I NT CHR* ( 234 ) ; CHR* (143 ) ; CHR* ( 1 43 
->. CHR*(1 43 *);: PAPER 1 : PEN = PR I NT RIGHT*( 
pac*<sui t, car), 2>j: PAPER 0=PEN 1: PRINT C 
HR*(235) 
11070 LOCATE cx-l,cy+6 

11075 PRINT CHR*(233) ; :FOR z=1 TO 5:PRIN 
T CHR* < 225) ;s NEXT z: PRINT CHR* (232) 

11076 SOUND l , 100,2 
11080 RETURN 

11170 REM >>>>> DRAW CARD BACK <<<<< 
11200 LOCATE cx-1 ,cy: PEN 3 

1 1 205 PR I NT CHR* ( 236 > ; : F OR n= 1 TO 5 : PR I N 
T CHR* ( 240 );: NEXT n: PRINT CHR*(237) 
11210 FOR rm=l TO 5: LOCATE cx-i,cy+nn 
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11215 PRINT CHR$<242> ; :FOR n=l TO 5:PRIN 
T CHR* ( 244) ;: NEXT n : PR I NT CHR*<243> 
11220 NEXT nn 

11225 LOCATE cx-1 , cy+6 : PRINT CHR*<239>;: 
FOR n=i TO 5: PR I NT CHR*(241 > ; :NEXT n :PRI 
NT CHR*(238> 

11226 SOUND 1,300,2 
11230 PEN l: RE TURN 

16990 REM >>>>>>>> CHARACTERS <<<<<<<<< 
17000 SYMBOL 224,0,255,255,255,255,255,2 
55 , 255 
17005 SYMBOL 225,255,255,255,255,255,255 

17010 SYMBOL 230,0,63,127,127,127,127,12 

7, 127 

17015 SYMBOL 231,0,252,254,254,254,254,2 

54 , 254 

1 7020 SYMBOL 232 , 254 , 254 , 254 , 254 , 254 , 254 

,252,0 

17025 SYMBOL 233,127,127,127,127,127,127 

,63,0 

17030 SYMBOL 234,127,127,127,127,127,127 

,127,127 

17035 SYMBOL 235,254,254,254,254,254,254 

,254,254 

1 7040 SYMBOL 236 , , 63 , 1 06 , 85 , 1 06 , 85 , 1 06 , 

85 

1 7045 SYMBOL 237 , <& , 252 ,170, 86 , 1 70 , 86 , 1 70 

,86 

1 7050 SYMBOL 238 , 1 70 , 86 , 1 70 , 86 , 1 70 , 86 , 25 

2,0 

1 7055 S YMBO L 239 , 1 06 , 85 ,106, 35 , 1 06 , 85 , 63 

»® 

17060 SYMBOL 240,0,255,170,85,170,85,170 

,85 

1 7065 SYMBOL 24 1 , 170 , 85 , 1 70 , 85 , 1 70 , 85 , 25 

5,0 

17070 SYMBOL 242,106,85,106,85,106,85,10 

6,85 

17075 SYMBOL 243,170,86,170,86,170,86,17 

, 86 

1 7080 SYMBOL 244,170,85,1 70 , 85 ,170, 85 , 1 7 

0,85 

'Card core' should now be saved separately for use in other card games. 
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4 
5 
6 
7 
3 
9 

10 

11 
12 
13 
15 
20 
21 



30 
35 
40 
42 
45 
46 
50 
51 
55 
56 
57 
60 
65 
66 
70 
75 
76 
77 
80 
81 
85 
90 
91 
92 



REM << PONTOON 
DEFINT a-2 

DIM pa<52> ,av<52> ,pac$( 
DIM cx<;4> , cy(4> 
DIM noc(4),pl(2 ) 
DIM p 1 c ( 3 , 5 > , b c < 5 > 
DIM mo (2) ,p*(2> 
SYMBOL AFTER 223 
GOSUB 17000 
GOSUB 1 1500 



ANDY /JIM 



i , 1 3 > , c c < 



100 - mc-500 
3: cc<3)=6 



mo(l )=100=mo(2> 

cc( 1 )=20: cc(2)= 

p 1 ( 1 ) = 1 : p 1 ( 2 ) = 1 

GOSUB 10000 

GOSUB 10500 

CLSsIF np=l THEN pl<2>=0 

IF pl<l)=0 AND pl<2>=0 THEN 22000 

IF pl<;i)=0 THEN be(l>=0 

IF pl<;2>=0 THEN be(2)=0 

GOSUB 12000 

cx( 1 >=15: cx<2>=28 

cy( 1 )-5: cy<2>=5 

bx=2:by=5 

GOSUB 13500 

FOR q=l TO rip 

IF pl<q>=0 THEN 55 

GOSUB 14000 

GOSUB 18000 

NEXT q 

cx=bx: cy=by:FOR q=l TO nc 

GOSUB 1 1200 = cy=cy + 2 : cx=o; + l :NEXT q 

GOSUB 16000 

FOR q=l TO rip: IF pl(q)=0 THEN 80 *£T 

cy=cyCq>s cx^cxCq) 

cy=cy+2= cx=cx + l 

GOSUB 16500 

GOSUB 18000 

cx( q)=CK% 

NEXT q 

cx=bx+l : cy=by+2: GOSUB 1 1 100 

GOSUB 1 1200 

GOSUB 14500 

REM >>>>>>>> SCORE LOGIC <<<<<<<<<<< 

q=3 
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93 IF np=2 THEN 94 ELSE IF sc<l>>21 THEN 
p*<l)="L n :GOTO 150 

94 IF sc(l)>21 AND sc<2>>21 THEN p*<l)=" 
L" :p*<2> = ,, L" :GOTO 150 

95 FOR w=l TO nc 

100 cx=bx - cy=(foy-2)+w*2 
1 05 p lc(3,w)=bc(w ) 

1 1 GOSUB 1 3000 : GGSUB 1 1 000 

111 bx=bx+l 

115 NEXT w 

1 16 bx = cx - by=cy 
120 FOR w=l TO nc 

125 plc<3,w>=bc<w> :NEXT w 

1 30 q=3 :noc < 3 > =ri c : c x ( 3 > =b x : GOSUB 1 3000 

135 IF sc<3)<16 THEN GOSUB 11100 ELSE GO 
TO 1 50 

136 bx-bx+1 :by=by+2:pl c(3,nc)=bc(nc) : q=3 
: cx=bx: cy=by :w=nc : GOSUB 13000: GOSUB 11 00 



1 37 n o c <! 3 ) =n c : GOSUB 1 8000 

140 IF nc=5 THEN 150 ELSE GOTO 135 

145 f=<RND<;i)*2> + 17:lF sc(3)<f THEN GOSU 

B 11 100: GOTO 136 

150 q=l 

151 IF pl<q)=0 THEN 200 

152 IF sc<q>>21 THEN p*< q) = " L " : GOTO 200 

153 IF sc(3>>21 THEN p*< q) = H W H : GOTO 200 
160 IF nc=5 AND noc<q>=5 THEN p$<q)="L": 
GOTO 200 

162 IF noc(q)=5 THEN p*< q> = " W" : GOTO 200 

163 IF nc=5 THEN p*< q> = " L " : GOTO 200 

164 IF sc(3»sc(q) THEN p$< q}=" L " : GOTO 2 

00 

165 IF sc(3>=21 AND nc=2 AND sc<q)=21 AN 
D r.oc(q>=2 THEN p*< q>= H L " : GOTO 200 

170 IF noc(q)=5 AND r.c<5 THEN p*<q>="W": 
GOTO 200 



q)=21 AND noc(q)=2 THEN p*(q> 

00 

q>>sc< 



175 IF sc< 
"UP: GOTO * 
180 IF 5C< 

00 

185 IF sc(q)=sc(3 

00 

186 IF sc(3)>sc(q 
200 IF np=2 AND q=l THEN q=2 : GOTO 151 



) THEN p*<q) = ,, W ll :GOTO 2 

> THEN p*<q>="L M : GOTO 2 

> THEN p$<;q} = "L" 
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201 
205 
2 1 
215 
220 
225 
230 
240 
395 

400 

405 
406 
410 
411 
412 



IF 

IF 

IF 

IF 

IF 

IF 

IF 

END 

REM > 

mc=mc 

mo<l>= 

GOSUB 

IF mc< 

GOSUB 

LOCATE 



np=i THEN 
p*<l>="L" 
p*<l>="W" 
p$(l> = ,, W n 

p$(l) = ,, L" 
p*<l>="W" 
p^D^L" 



AND 
AND 
AND 
AND 
THEN 



p*<2>="L" 
p*<2>="W" 
p*<2>="L" 
p*<2>="W" 

400 



THEN 
THEN 
THEN 
THEN 



550 

500 
600 

650 



THEN 450 



PLAYER WIN 



be(l) 

mo(l)+be(i >*2 

23000 

1 THEN 750 

19000 

1 ,25: PR I NT "Player wins" : GOSUB 



19500 



415 

445 

450 

451 

452 

9500 

453 

455 

495 

500 

505 

506 

510 

515 

516 

520 

545 

550 

551 

553 

554 

555 

,25 

560 



GOTO 20 
REM >>>>>>> 
mc=mc+be< 1 > 
GOSUB 19000 
LOCATE 1 



BANK WIN 



GOSUB 23500 
5: PR I NT "Bank win 



s": GOSUB 1 



IF modXi THEN pl(l>-0 

GOTO 20 

REM >>>>>>>>> BOTH WIN < 

mo < 1 > =mo < 1 > +b e < 1 > *2 

mo ( 2 > =mo ( 2 > +b e ( 2 ) *2 

GOSUB 23000 

mc=mc-be( 1 }-be<2> 

IF mc<l THEN 750 

GOSUB 19000 

GOTO 20 

REM >>>>>>>>> BOTH LOST 

mc=mc+be( 1 )+be<2> 

GOSUB 1 9000 = GOSUB 23500 



IF mo( 
IF mo< 
IF pl( 
PRINT 



> < 1 
><1 

') =0 



then pi<;i;> : 

THEN pl<2> = 



-0) 



AND p 1 < 



"Player- 



loses" 



IF pl<l>=l AND pl( 
PRINT "Player 1 



:) = 1 THEN LOCATE 1 



565 IF pl<l>=l AND pl( 
,25= PRINT "Both player 

566 GOSUB 19500 
570 GOTO 20 



>=0 THEN LOCATE 1 
loses" 

2>=1 THEN LOCATE 1 
s lose" 
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595 REM >>>>>>>>> PLAYER 1 WIN <<<<<<<< 

600 mc=mc+be(2) 

605 mo(l)=mo( 1 )+be( 1 )*2 

610 (nc=mc-be(l) 

611 GOSUB 23000 

614 IF mo (2><1 THEN pl<2>=0 

615 IF mc<l THEN 750 

616 GOSUB 19000 

617 LOCATE 1 ,25 : PRINT" Player 1 wins M :GOS 
UB 19500 

620 GOTO 20 

645 REM >>>>>>> PLAYER 2 WIN <<<<<<<<<< 

650 mc=mc+be(l) 

655 mo < 2 > -mo < 2 ) +b e ( 2 > *2 

660 m c =m c -b e ( 2 ) 

661 GOSUB 23000 

664 IF mo (1X1 THEN pl(l)=0 

665 IF mc<l THEN 750 
6. 6 6 G i3 SUB 1 9 

667 LOCATE 1 , 25 : PRINT" PI aye r 2 wins" :GOS 

UB 19500 

670 GOTO 20 

745 REM >>>>>>>> BANK BROKE <<<<<<<<<<< 

7 5 G S t J B 1 9 

755 LOCATE 1 ,25 

760 PRINT" We 11 done, you broke the bank" 

761 GOSUB 23000: GOSUB 23000 
765 GOSUB 19500 

770 CLS 

775 PRINT"PLAYER 1 : " ;mo%(l) 

730 IF np=2 THEN PRINT" PLAYER 2:";mo<2> 

785 GOSUB 1 9500 = GOSUB 1 9500 

790 GOTO 10 

11490 REM >>>>> NUMBER OF PLAYERS <<<<< 

11500 MODE l: WINDOW #3 ,24 , 40 , 25 , 25 : INK 1 
,26: INK 2,6:B0RDER 0:INK 0,0:INK 3,14 

11501 LOCATE 15, 1 :PRINT"P0NTO0N" 
11505 PRINT: INPUT "1 or 2 players " ;np 
11510 IF r.pOl AND np<>2 THEN 11500 
11515 FOR q=l TO np : p 1< q) = l s NE XT q 
11520 RETURN 

11990 REM >>>>>> DEAL CARDS <<<<<< 

12000 FOR q=l TO np 

12005 cl=<RND<l>*51>+l 

12015 IF av(cl)=0 THEN 12005 
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av(ci >=0 
plc<q,l}=cl 
NEXT q 

cl=<RND(l>*51>+l 
IF av(cl)=0 THEN 12035 
12050 av< cl >=0 
12055 bc<l)=cl 

rioc(l) = l :noc(2) = l :nc = l 
RETURN 

REM >>>>> DECODE CARD <<<<<<< 
sui=pl c ( q , w>/13: car=pl c(q, w) MOD 
3: IF car=0 THEN car=13 
13005 IF sui>0 THEN suit=l 
THEN suit=2 
THEN suit=3 
THEN suit=4 



12020 
12025 
12030 
12035 
12045 



12060 
12065 
12990 

13000 



13010 

13015 

13020 

13025 

13490 

13500 

, : I F r 

1 3505 



IF s u i \ 
IF sui: 
IF s u i '. 
RETURN 
REM >>: 
LOCATE 



1, 



> DRAW SCREEN 
3: PRINT "BANK* 



p = 2 THEN PRINT n PLAYER : 
LOCATE 14,21 :PRINT"Bet 



'PLAYER 1" 



IF np=2 T 



HEN LOCATE 27 , 21 b PRINT"Be t : " 

13510 LOCATE 1 , 22 : PRINTS" : LOCATE 14,22: 
PRINT"£ M : LOCATE 27,22: PRINT"£" 
13515 LOCATE 1 ,21 : PRINT"RESERVES" s LOCATE 

■ - - - iPRINT"T 
:PRINT"T 



1 ,20= PR INT "Total :" : LOCATE 14, 



otal :": IF 
otal :" 
13520 
13990 

14000 

14005 
14015 
14020 
14025 
14030 



np = 



20 
THEN LOCATE 27,20 



: 'AW HAND 
q) 

q> 



RETURN 

REM >>>>>>>> DR 

cx = cx < q> : cy=cy< 

FOR w=l TO noc( 

GOSUB 13000 

GOSUB 11000 

cy=cy+2 : cx=cx+l :NEXT w 

LOCAT E cciq^-^i 22 : PR INT mo < q > 



14035 RETURN 
14490 REM >>: 



14500 
6 

14501 
1 4505 



FOR q=l TO 



=■ STICK <<<<<<<< 
np:IF pl(q>=0 THEN 4452 



c x ( q > = c x ( q > + 1 
LOCATE 1 ,25: FOR 



n=l TO 39: PRINT 
" 5 :NEXT n 
14507 LOCATE 1 , 25 : PRINT" PLAYER " ; q ; " , ' 



Pontoon 1 03 

PRINT CHR*<24>; "S" ;CHR*<24> 5 "TICK ";CHR$ 
(24 > ; "T" 5 CHR*<24> 5 "WIST" ; 

14503 PRINT " " ;CHR*<24> ; "G" ;CHR*<24) 5 "U 
IT " ;CHR*<24> ; " B" ; CHR*<24) ; "UY" 

14510 a*=INKEY*sa*=UPPER*(a*>: IF a$="S" 
OR a$="T" OR a$="B" OR a$= M Q" THEN 14511 

ELSE GOTO 14510 

1451 1 cx=cx<q> : cy=cy <q>+<2*noc Cq> > 

14512 IF a$="B" THEN GOTO 20000 

14513 IF a$= M Q" THEN END 

14515 IF a*="S" AND sc(q}>15 THEN GOSUB 
15000: c«=c«+l :GOTO 14526 

14520 IF a$="T" THEN GOSUB 15500 : cx=cx+l 
s ex ( q ) = c x ( q ) + 1 

14523 GOSUB 18000 

14524 IF sc<q)>21 THEN LOCATE cc<q>,20:P 
R I NT "BUST" :GOTO 14526 

14525 IF noc(q><>5 THEN 14510 

14526 NEXT q 
14530 RETURN 
14990 REM 

1 5000 GOSUB 1 8000 : L OC AT E c c < q > , 20 : PR I NT " 

" "- L OC AT E c c < q } , 20 : PR I NT sc( q > = R E TURN 
15490 REM >>>>>>>> TWIST <<<<<<<<<< 
15500 c = <RND<l)*51) + l s IF av(.c')^0 THEN 15 
500 : av < c > =0 s n o c ( q ) =n oc(q) + l 
1 55 10 p 1 c < q , ri oc(q ) > = c : w=n o c < q > "> GOSUB 1 30 
00 : GOSUB 1 1 000 : RETURN 
15990 REM >>>>>> PLACE BETS <<<<<<<<< 

16000 LOCATE 2,22: PRINT mcsFOR q=l TO np 

16001 IF pl(q>=0 THEN 16020 

16005 LOCATE 1,25: FOR n=l TO 39 "-PR I NT" " 
; :NEXT n 

16010 LOCATE l,25sPRINT"PLAYER ";q;"Your 
bet <£> "5 

16011 INPUT #3,be<q> = IF be(q)<l THEN 16 

005 

16012 IF be<q) >mo(q> THEN 16005 

16015 LOCATE cc < q> ,21 : PRINT be(q) 

16016 LOCATE c c ( q) ,22 : PRINT" 

16017 mo(q)=fno( q )-be ( q > 

16018 LOCATE c c < q>-4 , 22 : PRINT" ":LOCAT 
E cc<q)-5,22:PRINT mo<q> 

16020 NEXT q 
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16040 RETURN 

16490 REM »» DEAL ANOTHER CARD <<<< 

16500 c=<RND< 1 >*5 1 ) + l 

16505 IF av(c)=0 THEN 16500 

1 65 10 p 1 c ( q , n o c ( q > + 1 ) = c : a v < c ) =0 

1 65 1 5 n o c < q > =n oc(q > + 1 

1 6520 w=n oc(q): GOSUB 1 3000 : GOSUB 1 1 000 

16525 RETURN 

17085 RETURN 

17500 GOSUB 1S000 

17505 IF sc<q)=21 THEN END 

17510 RETURN 

17990 REN >>>>>> PLAYER'S SCORE <<:.<<<< 

18000 sc(q>-0:ac=0:FOR z=l TO noc(q> s w=z 



1 8005 GOSUB 1 3000 ' I F R I GHT* (pac$(suit,ca 
r>,2> = " K" OR RIGHT*<pac*<suit, car) ,2') = " 
Q" OR RIGHT*(pac*<suit , car) ,2)=" J" THE 
N sc(q)-5C<q>+10 

18010 IF RIGHT*<pac*<sui t , car) ,2>=" A"TH 
EN ac=ac+l:GOTG 13020 

1 80 15 s c <". q > = s c ( q > + V A L ( R I GHT $(pac$(suit,c 
*r'> ,2)> 

18020 NEXT z:lF ac>0 THEN GOSUB 18200 

18021 LOCATE cc<q> ,20= PRINT" ": LOCATE 
cc(q) ,20:PRINT sc(q) 

18025 RETURN 

18190 REN >>>>> ACE IN HAND <<<<<<<<< 

1 8200 FOR r •= 1 TO a c 

18202 IF sc<q>+ll>21 THEN sc(q)=sc(q)+l 

ELSE sc<q)=sc<q> + U 

18204 NEXT r 

18205 GOTO 18021 

1 9000 LOCATE 1 , 25 : FOR a= 1 TO 
; :NEXT a:RETURN 
19500 FOR t-1 TO 3000SNEXT t 
19990 REM > > > > > > > > > B U Y < < < < < 
20000 IF m o < q ) < b e < q ) THEN 

20004 b e < q > =b e ( q > *2 

20005 mo < q > -mo ( q ) -b e ( q ) / 2 
GOSUB 1 5500 
LOCATE 
LOCATE 



39: PR I NT" 
: RETURN 



20010 
2001 1 

20012 
20013 
20014 



145 



cc<q>,21 : PRINT" 



LOCATE 
LOCATE 



cc(, 
cc( 

cc<; 



) ,21 : PRINT tae(q) 

> «5, 22: PRINT" 

> -5, 22: PRINT mo<q) 
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20020 ck-cx + 1 = cx(q) = c x ( q > + 1 

20025 GOTO 1 45 1 3 

21990 REM >>>>> END OF GAME <<<<<<<<<<< 

22000 GOSUB 1 9000 = LOCATE 1 , 25 : PR I NT " A 1 1 
Player's money gone" 

22001 FOR so=100 TO 500 STEP 5 

22002 SOUND l,so,2:NEXT so 
22005 GOSUB 19500: GOTO 10 

22990 REM >>>>>> WIN SOUND <<<<<<<<<< 

23000 FOR s o=300 TO 100 STEP -10 

23005 SOUND 1 , so, 1 

23010 NEXT so 

23015 RETURN 

23490 REM >>>>>> LOSE SOUND <<<<<<<<< 

23500 SOUND 1,200,20 

23505 SOUND 1,0,10 

23510 SOUND 2,500,40 

23515 RETURN 



Now 'MERGE' the 'CARD CORE' routine 



14 

Hi-Lo 




Nothing for a Pair 

Here is the computer version of the card game featured in a well 
known TV programme. 

Each player starts with £150 and eleven cards are dealt out face 
down. 

The first is turned over and a bet is requested. The bet can be 
anything up to the player's total holding. When the bet has been 
placed, 'higher' or 'lower' will be requested. If this is correct then the 
bet is paid evens. If the guess is wrong or the card is the same value 
then the stake for that card is lost. This then continues until all the 
cards have been turned and a new game can then be played. 

The 'High Score' subroutine should be merged with this program to 
provide another competitive dimension or simply to record how well 
you perform from one game to the next. 

Since this game shares many lines with the Pontoon listing, these 
have not been re-listed. To complete entry of the game the 'Card 
Core' should be loaded first and then the additional lines for Hi-Lo 
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can be entered. The 'Card Core' is also required for the next game, so 
do not rub over it! 

1 REM <<< HI-LO ANDY /JIM >>>> 

2 REM 

3 DIM pa<52) ,av<52) ,pac$<5, 13) , b c < 1 1 } 

4 DIM cx(ll) , cy(ll> 

5 hi=0:gam$==" Hi-Lo" :addr=34999 

6 BORDER 

8 SYMBOL AFTER 223 

9 GO SUB 17000 

1 MODE 1 : I NK 1 , 26 : I NK 2,6:1 NK 3,14:1 NK 

0,0 

11 WINDOW #3,32,40,25,25 

12 PEN 1 

15 LOCATE 14,17:PRINT"HI - LO" 

20 GOSUB 10000 

22 GOSUB 10500 

25 GOSUB 1 1500 

30 LOCATE 11 , 19:PRINT"Stake: " 

35 LOCATE 1 1 , 20 : PRINT"Total = " 

37 LOCATE 27 , 17 : PRINT"Hi-s core " 

40 tot=150 

45 be=0 

50 GOSUB 13500 

60 GOSUB 14500 

65 c = l 

70 cx=cx(c)scy=cy( c> 

71 GOSUB 13500 

72 IF c=ll THEN 25000 

75 p 1 c < 1 , 1 > =b c ( c > : q= 1 = w= 1 

76 GOSUB 1 3000 : GOSUB 1 1 000 
80 GOSUB 14000 

85 GOSUB 15000 

86 GOSUB 13500 

90 cx=cx( c+1 ) : cy=cy< c+1 > 
95 pi c< 1 , l)=bc(c + l > : ca=car 

1 00 q= 1 : w= 1 : GOSUB 1 3000 

101 GOSUB 1 1000 

105 IF car>ca AND a$="H" THEN 16500: GOTO 

70 
110 IF car<ca AND a$-"L H THEN 16500:GOTO 

70 
115 GOTO 16000 
120 GOTO 70 
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11490 

1 1500 

11505 
11506 
11510 
11515 
11520 
11525 
11530 
11535 
12990 

1 3000 

3 : I F c 
13005 

13010 

13015 
13020 
13025 
13490 
13500 
13501 
13504 
13505 
13509 
13510 
13515 
13990 

14000 
14001 

t " 
14005 

14010 

14015 
14020 
14490 
14500 
14505 
14510 
14515 
14520 
14525 
14530 
14990 

15000 



) 11 



REM >>>>>>> DRAW CARDS - 

RESTORE 11525: FOR a =l T( 

READ cx(a) , cy(a) 

cx=cx(a)scy=cy(a) 

GOSUB 1 1200 

NEXT a 

RETURN 

DATA 2,1 , 10, 1 , 18,1 ,26, 1 , 34 , 1 

DATA 2,9, 10,9, 18,9,26,9,34,9 

DATA 2,17 

REM >>>>>> DECODE CARD <<<<<<<<< 

s u i =p 1 c ( q , w > / 1 3 : car-=p 1 c ( q , w > MOD 1 

ar=0 THEN car=13 



IF 
IF 
IF 
IF 



s u i >0 
s u i > 1 
sui >2 

sui >3 



THEN 
THEN 
THEN 
THEN 



5U i t=l 
sui t=2 
suit=3 
sui t=4 



RETURN 

REM >>: 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

RETURN 

REM >>: 

LOCATE 

LOCATE 



PRINT HI , TOTAL, BET 
17,19:PRINT " 
17, 19: PRINT 
17,20: PRINT 
17,20: PRINT 



he 



tot 



18: PRINT 



^w , 



PRINT hi 



■>>>> PLACE BETS <<<<<<< 
15,24:PRINT"You have £ n 
15,25: PR I NT "What is you 



; tot 

r b e 



INPUT #3, be 

IF be<l OR be>tot THEN 14005 

tot=tot~be: GOSUB 13500 

RETURN 

REM >>>> GENERATE CARDS <<<<< 

FOR a=l TO 11 

c=INT<RND<l>*51)+l 

IF av(c')^Q> THEN 14505 

bc(a)=pa( c > 

av( c>=0 

NEXT a 

RETURN 

REM >>>>>> 

LOCATE 15, 



HIGHER / LOWE 
>5:F0R b==l TO 



R 



< < < <. 



;.: PRINT" 
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" ; :NEXT h 

15001 LOCATE 15, 24: FOR a=l TO 20: PR I NT" 

n ; :NEXT A 

15005 LOCATE 15,25: PRINT CHR*<24> 5 "H" ;CH 

R*<24> ;" igher / " ; CHR*<24> ; " L " ;CHR*<24> ; 

" ower" 

15010 a*=INKEY*:a*==UPPER*<a*) 

15015 IF a$<>"H" AND a$<>"L" THEN 15010 

15020 RETURN 

15990 REN >>>>>>>> LOSE <<<<<<<<<<<<< 

1 6000 SOUND 1 , 300 , 20 : SOUND 1,0,10 

1 60 1 SOUND 1 , 500 , 40 

16020 IF tot<l THEN 26000 

16025 c=c+l:GOTO 70 

16490 REM >>>>>>>>> WIN <<<<<<<<<<<<< 

16500 FOR 5 0=500 TO 300 STEP -10 

16505 SOUND l,so, 2: NEXT so 

16510 tot=tot+be*2 

16520 c=c+l:GOTO 70 

170S5 SYMBOL 226,56,56,254,254,254,16,56 

»® 

17090 SYMBOL 227,16,56,124,254,124,56,16 

17095 SYMBOL 223,108,254,254,254,124,56, 

16,0 

17100 SYMBOL 229,16,56,124,254,254,16,56 

17105 MEMORY 34999 : GOSUB 29500 

17110 RETURN 

19500 FOR t=l TO 3000: NEXT t: RETURN 

24990 REM >>>>>> HIGH SCORES <<<<<<<<< 

25000 IF tot>hi THEN hi=tot 

25005 s c = to t s GOSUB 60000 

25010 GOTO 10 

25990 REM >>>>>>> NO MONEY LEFT <<<<<< 

26000 LOCATE 15, 25: FOR a =l TO 25: PRINT" 

" ; :NEXT a 

26005 LOCATE 15,25: PRINT "Run out of mon 

ey ! " 

26010 GOSUB 19500 a GOTO 10 



Now 'MERGE' the 'INKEYS' , the 
'HIGH SCORE' and the 'CARD CORE' 



IS 

Concentration 




Find the Pair 

This deceptively simple game requires a good memory and of course 
great concentration. 

Each player has one turn to select two cards. If they match then 
they score and are removed from the screen. The next player then 
tries to find a pair until all the cards are gone. The winner is the one 
who correctly matched the most pairs. 

In some card versions of this game a successful player is allowed to 
turn over another two cards. However, the game plays better in this 
12-card version if one player cannot clear the decks so quickly. 

Since the game requires a pack of 'micro cards' together with the 
shuffle routines, these can be merged from the earlier listing. Once 
again you will have a very comprehensive program which makes full 
use of the memory, without having to type in more than is necessary. 

Here is a money raising tip. Those readers who are involved in 
raising cash for charities or school funds may like to consider how the 
micro can help. Concentration could be used as a fund raiser, just as 
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many other programs featured in the book can. Simply set up your 
computer and charge visitors for the privilege of pressing the buttons! 

1 REM << CONCENTRATION ANDY/JIM >>> 

2 REM 

10 CLEAR 

20 DIM pac$(5 1 13),cc(3),5c(2) 

30 DIM p a < 52 > , a v <; 52 > 

40 DIM cm (12) , cy<12> 

50 DIM ca<12> ,bc( 12) 

60 DIM plc(l ,2) ,ac<12> 

70 SYMBOL AFTER 223 

80 GOSUB 17000 

90 CLS : GOSUB 1 0000 

100 INK 0,0: BORDER 

110 sc<l)==0s sc(2)=0 

120 GOSUB 10000 

130 GOSUB 10500 

135 PAPER 0= PEN 3 

140 GOSUB 11500 

150 GOSUB 12000 

160 FOR a=l TO 12 : ac (a>=l = NEXT a 

170 WINDOW #3,18,40,25,25 

180 p=l 

190 GOSUB 14500 

200 GOSUB 13500 

210 GOTO 14000 

220 IF p=l THEN p=2 ELSE p = l 

230 GOTO 190 

11295 REM >>>>>>>> ERASE CARD <<<<<<<<< 

1 1300 LOCATE cx-1 , cy 

11305 FOR y=l TO 7 

11310 LOCATE cx-1, cy+y-1 SPRINT " 

11315 NEXT y 

11320 RETURN 

11490 REM >>>>>> GENERATE CARDS <<<<<<< 

11500 RESTORE 11570: FOR a=l TO 12 

11501 ca<a)=l5NEXT a 

11504 FOR a=l TO 12 STEP 2 

11505 READ cl , c2 
11510 c=<RND<l>*ll>+l 
11515 IF ca(c>=0 THEN 11510 
11520 bc( c)==cl : ca( c>=0 
11525 c=<;RND<1)*11> + 1 
11530 IF ca(c>=0 THEN 11525 
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11535 
11540 
11545 
11550 
11555 
11560 
11570 
1 15S0 
11585 
1 1590 
11990 

12000 

12004 
12005 

12010 

1 20 1 1 
12015 
12020 
12025 
12030 
12035 
12040 
12990 

13000 



bc(c)=c2 
NEXT a 
FOR a=l 
READ ex 
NEXT a 
RETURN 



ca( c)=0 

TO 12 
<a> , cy(a) 



DATA 
DATA 
DATA 
DATA 7 
REM >) 
MODE 1 
FOR a= 
c x = c x ( 
GOSUB 
LOCATE 
NEXT a 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REM >>: 



14,2,15,3,16,4,17,! 
1,10,1,18,1,26,1 



19 



2,9,10,9,1: 
17, 



10, 17, 18, 17,26,17 
>>>>> DRAW SCREEN <<<< 
: INK 1 ,26: INK 2,6: INK 
1 TO 12 
a> : cy=cy<a) 

1 1200 

cx(a)+l , cy<a>+7: PRINT a 

33,3:PRINT"Score 1 " 
33,6:PRINT "Score 2" 
32, 15: PRINT "Player 1 H 
32, 17: PRINT "Player 2" 



14 



>>>> DECODE CARD <<• 

su~p 1 c < q , w> / 13 : car = p lc(q,w) 
:IF car=0 THEN car™ 13 
13005 IF su>0 THEN suit=l 

IF su>l THEN suit-2 

IF su>2 THEN suit=3 

IF su>3 THEN suit-4 



MOD 13 



1 30 1 
13015 
13020 
13025 
13490 
13500 



RETURN 
REM >>: 
LOCATE 



" ; :NEXT a 
13504 LOCATE 



• INPUT NUMBER <<<<<< 
FOR a=l TO 30: PRINT 



5:PRINT"Enter first No 



13505 
13510 
13511 
13515 

13520 
13525 
13530 



INPUT #3,r.l 
IF nl<l OR nl>12 THEN 
IF ac<nl>=0 THEN 13505 
p 1 c < 1 , 1 > =b c ( n 1 > : q= 1 : w= 
GOSUB 1 3000 : c x = c x < n 1 > : 
GOSUB 1 1000 



505 



1 
cy= 



c y < n 1 > 



LOCATE 1 



PRINT"Er.ter second No - 



13535 INPUT #3,r,2 

13540 IF n2<l OR r.2>12 THEN 13535 
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13541 IF ac(n2)=0 THEN 13535 

13545 plc< 1 ,2>=bc<n2> :q=l = w=2 

13550 GOSUB 13000= o:=cx(n2) : cy-cy(n2> 

1 3 555 G SUB 11 

13560 RETURN 

13990 REM >>>>>>> CHECK PAIR <<<<<<<< 

1 4000 q= 1 : w= 1 : GOSUB 1 3000 

1 4005 ca 1 = car : q= 1 = w = 2 : GOSUB 1 3000 

14010 ca2~car 

14015 IF cai=ca2 THEN 15000 

14020 LOCATE 1,25:F0R a=l TO 30:PRINT" " 

; :NEXT a 

14025 LOCATE 1,25=PRINT "Cards do not ma 

tch" 

1 4 3 G S LI B 195 

14035 cx = c>; (n 1 > - cy=cy(n 1 > 

14040 GOSUB 1 1 200 : c >c = c x < n 2 > : c y = c y ( n 2 > 

1 4045 GOSUB 1 1 200 : GOTO 220 

14490 REM >>>>> PRINT SCORES <<<<<<<<< 

14500 PEN l: LOCATE 33,4: PRINT 'sc(l) 

14505 LOCATE 33,7: PRINT sc(2) 

14510 IF p=l THEN LOCATE 32, 15: PAPER l:P 

EN 0: PRINT "Player 1 " ' PEN 1: PAPER @:LGCA 

TE 32,17s PRINT "Player 2" 

14515 IF p=2 THEN LOCATE 32,17:PAPER 1:P 

EN 0:PRINT "Player 2":PEN 1 : PAPER 0:LOCA 

TE 32,15:PRINT "Player 1 " 

14520 RETURN 

14990 REN >>>>>>>>> PAIR FOUND <<<<<<<< 

15000 LOCATE 1,25: FOR a =l TO 30: PRINT " 

" ; :NEXT a 

15005 LOCATE 1,25: PR I NT "Pair found" 

1 5006 a c < n 1 > =0 : a c (n 2 > =0 

15007 FOR so =500 TO 100 STEP -10: SOUND 1 
,so, l:NEXT so 

15010 GOSUB 19500 

15015 c k = c x (nl) : c y- c y ( n 1 > 

15020 GOSUB 11300: cx=cx(n2> : cy=cy<n2> 

1 5025 GOSUB 1 1 300 :sc(p)=sc(p) +5 

15030 IF 5C<i) + 5c(2)=3€» THEN 15500 

15035 GOTO 220 

15490 REN >>>>>>> END OF GAME <<<<<<<<< 

15500 CLS:PEN 1 

15505 PRINT:PRINT "Player 1 s core : " ", s c ( 1 

) 
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15510 PRINT: PRINT "Player 2 s core : M \ s c (2 

> 

15515 PRINT: PRINT: LOCATE 5, 10: PRINT "Pre 

ss 'SPACE ' for another game , " 

15520 LOCATE 10, 12: PRINT "or 'Q' to quit 

15525 a*=INKEY* 

15530 IF a$=" " THEN 10 

15535 IF a*= ,, Q" OR a*=" q" THEN END 

15540 GOTO 15525 

17035 RETURN 

19500 FOR t=l TO 3000:NEXT t: RETURN 



Now 'MERGE 1 the 'CARD CORE' routine- 



16 
Micro Mind 




Colour Your Reasoning 

Versions of this well known and widely enjoyed game can be found 
on all microcomputers. In writing this implementation of the game, 
care has been taken to produce a good looking layout that makes 
play enjoyable. 

The object of the game is to work out what the secret 6-colour 
combination is, by placing coloured markers in a row. 

The Amstrad will then indicate how accurate the placing was using 
little faces: 

A happy face indicates the right colour, right place. 
A sad face indicates the wrong colour, wrong place. 
A straight face indicates the right colour, wrong place. 

A joystick or the cursor pad is used to select the colours by moving 
an arrow to the colour required. The fire button or copy key then 
places it. The next ones are then entered in the same manner until the 
row is full and the result is shown. 

There are ten chances to guess the correct sequence before each 
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game ends. The computer will then display the correct combination 
at the top of the screen. This will remain in view to allow analysis of 
where you want wrong! Pressing Y or N either starts a new game or 
ends the session. 

The game can be played competitively by each person aiming to 
achieve a lower number of lines to work out the combinations. 



10 

15 
20 



MICROMIND 



REM <<< 

REM 

INPUT "COLOUR 

a*=UPPERS<a*) 

IF a*="Y" THEN 

REM 

MEMORY 34990 

GOSUB 29500 

GOSUB 11500 

ex =3: cy=25 

37 PEN 1 

40 FOR a=l TO 4 

45 LOCATE <a*3)-2 
(143) 

46 NEXT a 

50 n=l:FOR y™4 TO 
OR x = l TO 9 STEP 



30 



36 



ANDY/JIM 
" ,a* 
gr=0 ELSE gr-1 
addr=34999 



C Y/N) 



PR I NT CHR* < 1 43 > ; CHR* 



52) 



iNEXT 



2.) ; :n=n+l:NEXT 



I STEP 2: LOCATE 1 ,y:F 
3 : PR INT CHR* < 1 43 > ; CHR* ( 
PRINT CHR*(143);CHR*<23 



THEN 14000 



55 try=l 
60 GOSUB 10000 
65 GOSUB 10500 
70 GOSUB 12500 

72 IF a^'YYYY" 

73 a*= ,,n 

75 try=try+l"-IF try=ll THEN 13000 ELSE G 

OTO 65 

9949 END 

9990 REM >>> PI c:K RANDOM SEQUENCE <<<< 

1 0000 F OR p 1 a= 1 TO 4 

10005 n=INT(RND<l >*4)+2 

10010 nn(pla>=n 

10015 NEXT pla 

10020 RETURN 

10490 REM >>>>> INPUT COLOURS <<<<<< 

10500 IF gr=l THEN GOTO 10502 ELSE LOCAT 
E 3,24 

10501 PEN 2: PRINT CHR*< 143> ; s PEN 3s PRINT 
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CHR*<143>;:PEN 4: PRINT CHR*< 143) ; : PEN 5 
: PRINT CHR*<143>; :PEN 6: PRINT CHR*<143>; 
:PEN 7: PRINT CHR*< 143 > : GOTO 10505 
10502 LOCATE 3,24:PEN 2:PRINT CHR*(34>;: 
PEN 3: PR I NT CHR*<35> ; : PEN 4 = PRINT CHR*<3 
6};: PEN 5: PRINT CHR*<37> ; : PEN 6: PRINT CH 
R*(38>;:PEN 7: PRINT CHR*<39) 

10505 tx=i 

10507 cy=25 

10510 LOCATE ex, cy: PRINT " ~ " : FOR t=0 TO 

10:NEXT t 

10515 LOCATE cx,cy:PRINT " " 

1 0520 GOSUB 29000 

10525 IF le = l AND c>;>3 THEN cx=cx-l 

1 0530 IF r i - 1 AND ex < 3 THEN cx = cx + i 

10535 IF fi=l THEN 10600 

10540 GOTO 10510 

10600 pe=cx-l 

10605 LOCATE t x , t ry*2+2 : PEN pe:lF gr~l T 

HEN PRINT CHR*<32+pe> ELSE PRINT CHR*<23 

3) 

1 06 10 t x = t x +3 : p e ( t x / 3 > =p e 

10615 IF tx=13 THEN RETURN ELSE GOTO 105 

10 

11490 REN >>>>>>>> DRAW HEAD <<<<<<<<<< 
11495 SYMBOL AFTER 223 

11500 NODE 0:INK 1,24: INK 2, 11: INK 3,18: 
INK 4,24: INK 5,26: INK 6,6= INK 7,7 

11501 PEN 1 

11502 PEN 6:L0CATE 2 , 1 : PRINT'THCRONIND" : 
PEN 1 

1 1 505 MOVE 580 , 50 : DRAW 560 ,110 

11510 DRAW 605, 180: DRAW 615, 220: DRAW 615 

, 250 

11520 DRAW 605,290: DRAW 555 , 320 : DRAW 435 

,320 

11525 DRAW 415, 290: DRAW 395, 250: DRAW 365 

,200 

1 1 530 DRAW 375 , 1 95 : DRAW 390 , 1 90 : DRAW 400 

, 170 

11535 DRAW 395, 165: DRAW 400, 160: DRAW 395 

, 155: DRAW 400, 150 

11540 DRAW 400,145:DRAW 395,140:DRAW 395 

, 130 

11545 DRAW 400, 125: DRAW 415, 120: DRAW 425 
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, 110 

11550 DRAW 430, 95: DRAW 405, 50: MOVE 410,2 

50: DRAW 430, 245: DRAW 410,240 

11555 PEN 2: LOCATE 15, 10: PRINT CHR*<143> 

:PEN 3:L0CATE 16,9:PRINT CHR*< 143> ; : PEN 

4: PRINT CHR$(143) :PEN 5: LOCATE 18,10:PRI 

NT CHR$<143> sPEN 6: LOCATE 13,11 : PRINT CH 

R*<143> 

11560 PEN 7: LOCATE 17, 12: PRINT CHR$(143> 

:PEN 8: LOCATE 16, 13: PRINT CHR*< 143) : PEN 

15: LOCATE 16, 15: PRINT CHR$<143> 

11565 SYMBOL 250,126,255,153,255,255,129 

,255, 126 

11570 RETURN 

11990 REN >>> PUT PLAYERS COLOUR UP <<< 

12490 REN >>> CHECK THROUGH SEQUENCE << 

12500 a$= M " "- tx=2: PEN 1 

12505 FOR x = l TO 4 

12510 IF pe<x>=rm<;w> THEN LOCATE tx,try* 



2+2: PRINT CHR*C224> : :a$=a$+"Y" 



TE tx,try*2+2: PRINT 
12511 tx=tx+3 

NEXT x 

tx=2 

do=0 

FOR 



CHR*C: 



ELSE LOCA 

;a$=a$+"X H 



12515 
12520 
12521 
12525 
12526 

00 , 10 

12530 
THEN 
SOUND 
12535 
" THEN 



SOUND 1 , 1 



c = l TO 4 
IF MID*(a*,x, 1>="Y" THEN 
GOTO 12550 

IF pe<x)=nri<;i:) AND LEFT*<a* , 1 ') = " X " 
LOCATE tx,try*2+2:PRINT CHR*<250> : 
1 ,300, 10: do=l 
IF pe(x)=riri(2) AND 
LOCATE tx,try*2+2 



MID$<a$,2, 1)="X 
PRINT CHR*<250) 



: SOUND 1 , 300 , 1 & : d o = 1 
12540 IF pe(x)~rm<3) AND 
" THEN LOCATE tx,tvy*2+2: 
: SOUND 1 ,300, 10: do=l 
12545 IF pe(x)=nn(4) AND 
" THEN LOCATE tx,try*2+2: 
: SOUND 1 , 300 , 1 : d o= 1 



M IDS (a*, 3, 1)= M X 
PRINT CHR*<250) 

RIGHT*<a$, 1> = "X 
PRINT CHR*<250> 



12546 
12550 
1 2555 
12990 

13000 



IF do-® 
tx-tx+3 
RETURN 
REN >>> 
FOR a-1 



THEN SOUND 1 ,450, 10 
i SOUND 1,0, 5: NEXT x 



■> LOSING 
TO 4 



SEQUENCE 
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13005 PEN nn(a) 

13010 LOCATE <a*3>-2,2:PRINT CHR*<143>;C 

HR*<143> 

13015 NEXT a 

13025 LOCATE 13,1: PRINT "Sorry" 

13026 FOR so=100 TO 500 STEP 10: SOUND 1, 
so,3:NEXT so 

13030 GOTO 14021 

13990 REN >>>>> WINNING SEQUENCE <<<<< 

14000 FOR a=l TO 4 

14005 PEN rm(a) 

14010 LOCATE <a*3>-2,2:PRINT CHR*(143);C 

HR*<143> 

14015 NEXT a 

14020 LOCATE 14,1: PRINT "Did it": LOCATE 
14, 3: PRINT" in M j try 

14021 LOCATE 14 , 23 : PRINT" Again " : LOCATE 1 
3,24: PRINT" <Y / N>" 

14022 FOR a=l TO 2 

14023 FOR so=500 TO 100 STEP -50 : SOUND 1 
,so,5:NEXT so 

14024 FOR so=100 TO 500 STEP 50 : SOUND 1, 
so,5:NEXT sosNEXT a 

14025 a*=INKEY* 

14030 IF a$= n Y" OR a$="y" THEN 35 
14035 IF a*="N M OR a*="n" THEN CLS:END 
1 4040 GOTO 1 4025 



Now 'MERGE' the ' INKEYS' routine- 



17 

O'Grady Says 




O'Grai/y Says: Type This In 

As far as I know this is the world's first implementation of the well 
known game, sometimes also known as Simon Says. 

This program can be most helpful in teaching the concept of left 
and right, but be warned, as it stands the program means /7a left or 
right, not yours! 

You start each game with just one point. The speech bubble will 
then announce the action required together with the name of the 
person giving the order. If O'Grady says 'do it 1 then you do it fast! If 
O'Riley says 'do if then you do not\ The little chap at the top follows 
all commands. 

There are four possible actions which you may be asked to do. Up 
and Down are actioned using the up or down cursor or joystick as 
normal. Left or Right are obtained using the respective key in 
relation to the on-screen character. This means that pressing the left 
cursor will actually lift up the chap's right arm. 

This swap has been incorporated to provide more of a mental 
challenge. It can be quite a struggle to workout which is left, which is 
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right and of course whether O'Grady said 'do it'. Play the game and 
you will see what I mean. 

Speedy mental processing is important in O'Grady Says or lack of 
action may be taken as intentional. This could mean that you lose 
points or, if you are lucky, doing nothing could be just the right 
response. 

1 REM < O'Grady says <~ > ISSI / J IM/ANDY; 

2 REM 

100 MEMORY 34990 

110 addr=34999: GOSUB 29500 

500 GOSUB 20000 

505 sc-0: tu-0 

510 REM >>>>>>>> MAIN LOOP <<<<<<<<<< 

515 og=INT<;RND<r>*2> + l 

516 tiFtu+1 

520 po=INT(RND<l)*4>-+-l 

521 CLS #1 

522 GOSUB 21 040= GOSUB 2 1060: GOSUB 21140: 
GOSUB 21160 

525 IF og=l THEN PEN #1,4: PRINT #1,"0'GR 

ADY SAYS," 

530 IF og=2 THEN PEN #1,4 = PRINT ttl/'G'RI 

LEY SAYS " 

535 IF po=l THEN PEN #1,5:PRINT ttlsPRINT 

# 1 , "MOVE UP" : GOSUB 2 1 000 : GOSUB 2 1 020 
540 IF po=2 THEN PEN #1,5: PRINT #1 : PRINT 

# 1 , " MOVE DOWN " : GOSUB 2 1 060 : GOSUB 2 

1040 

545 IF po=3 THEN PEN #i,5:PRINT #l:PRINT 
# 1 , M UP R I GHT " : GOSUB 2 1 000 : GOSUB 2 1 060 

550 IF po=4 THEN PEN #1,5: PRINT #1 : PRINT 
#1/'UP LEFT": GOSUB 2 1020: GOSUB 21040 

555 t=0 

560 GOSUB 29000 

565 IF le + ri + up + do=<2> THEN t=t+l:IF t=40 

THEN 610 ELSE GOTO 560 

THEN GOSUB 21 120: GOSUB 21140 
THEN GOSUB 211 00 : GOSUB 2 1 1 60 
THEN GOSUB 21100=GOSUB 21120 
THEN GOSUB 21140:GOSUB 21160 
AND up=l AND og-1 THEN 2000 
AND do = l AND og=l THEN 2000 
AND le=l AND og=l THEN 2000 
AND ri = l AND og=l THEN 2000 



570 


IF 


ri = 


= 1 


575 


IF 


le = 


= 1 


580 


IF 


up= 


= 1 


585 


IF 


do = 


= 1 


590 


IF 


po = 


= 1 


595 


IF 


po = 


~2 


600 


IF 


po= 


= v> 


605 


IF 


po = 


=4 
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610 IF t=40 AND og=2 THEN CLS #1=PEN #1 , 
6«PRINT #1," WELL DONE " : PEN #1,4:P 
RINT #1 ,"G'RILEY":PEN #1,6:PRINT #1,"SAI 
D IT" :sc=sc+l : GOSUB 2500 

611 IF t=40 AND og=2 THEN FOR son=50® TO 
100 STEP -30: SOUND 1 , son , 10 : NEXT son: GO 

TO 635 

615 IF og=2 AND 1 e + r i+cto + up<>€> THEN CLS 
#l:PEN #1,6:PRINT #1 , "WRONG !": PEN #1,4:P 
RINT #l:PRINT #1 , "0 ' RI LEY" : PEN #1,6:PRIN 
T #1: PRINT #1,"SAID IT " : s c=s c-1 : GOBUB 25 

00 

616 IF og=2 AND 1 e+ri+do+up<>@ THEN FOR 
so=100 TO 200 STEP 10: SOUND l,so,5:NEXT 
so: GOTO 625 

617 IF t=40 AND og=l THEN CLS #1: PRINT tt 
1," OUT OF TIME ! ":sc=s c-1 : GOSUB 2500 
613 IF t=40 AND og=l THEN FOR so=100 TO 
200 STEP 10: SOUND 1, so, 5: NEXT so: GOTO 63 
5 

620 CLS #l:PRINT #l:PEN #1,5:PRINT #1,"W 
RONG! " 

621 FOR so=100 TO 500 STEP 50 : SOUND l,so 
,10:NEXT so 

625 sc=sc-l:lF sc<l THEN 700 

630 GOSUB 2500 

635 FOR t=l TO 1000: NEXT t 

640 GOTO 515 

690 REM >>>>> END OF GAME <<<<<<<<<<< 

700 CLS #2: PEN #2,5: PRINT #2, "BAD LUCK 

YOU MADE IT THROUGH ";tu: PRINT #2, M TU 

RNS - " 

705 FOR t=l TO 2000: NEXT t 

710 CLS #l:CLS #2:PEN #2,5:PRINT #2,"P0I 

NTS" 

715 MODE 0:GOTO 500 

1990 REM >>>>>>> CORRECT <<<<<<<<<<<< 

2000 CLS #1: PRINT #1 , "CORRECT ! " 

2005 FOR so=200 TO 100 STEP -5 : SOUND l,s 

o,5sNEXT so 

20 1 s c = s c+ 1 : GOSUB 2500 : GOTO 635 

2490 REM >>>>>>> PRINT SCORE <<<<<<<<< 

2500 PRINT #2,CHR*<30} : PR I NT #2: PRINT #2 

:PEN #2,4*PRINT #2,sc 

2505 RETURN 



O'GradySays 123 



19980 

20000 
20010 

20020 
20030 
20040 
20050 
20060 

20100 
20 110 

20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20500 
20510 
20520 
20530 
20540 
20550 
20560 
20570 
20580 
20590 
20600 
20610 



REM > > > > > > > > > > screen < < < <- ■'- ■=-. <■ <- < <. <• 

RESTORE 20000 

FOR n=0 TO 15 

READ a 

INK n,a 

NEXT n 

DATA 0,26,3,18,24,24,24,3 

DATA , , , , , , © , 

BORDER 0: PAPER s PEN is MODE 

WINDOW #1 ,2,9,3,10 

WINDOW #2,2,9,14,20 

PAPER #1,2:PEN #1,5:CLS #1 

PAPER #2,2: PEN #2,5: CLB #2 

PLOT 30, 370, 5: DRAW 292,370 

292, 237: DRAW 30,237 

5,230: DRAW 30, 252: DRAW 30,370 

30, 195: DRAW 292,195 

292,77: DRAW 



DRAW 

DRAW 

PLOT 

DRAW 

DRAW 

PRINT 

PLOT 

DRAW 

PLOT 

DRAW 

DRAW 

PLOT 

DRAW 

PLOT 

DRAW 

DRAW 

PLOT 

DRAW 

DRAW 

PLOT 

DRAW 

PLOT 

DRAW 

DRAW 

PLOT 

DRAW 

PLOT 

DRAW 

DRAW 

PLOT 

DRAW 



50,77 



30, 180: DRAW J 
#2 SPRINT #2, 



480,325, 

530, 250, 9: DRAW 



^02: DRAW 
POINTS" 



:DRAW 480,250 



50 , 1 95 



530,340 
480,250, 11 



>40 



540,260 
480,325: DRAW 
540,365= PLOT 
430,250: DRAW 420. 
480, 325: DRAW 430, 
420,365 

480 , 325 , 8 : DRAW 500 , 290 
480 , 250 : DRAW 500 , 225 
490 , 200 

430 , 325 ,10: DRAW 460 , 290 
480, 250: DRAW 460,225 
470,200 

480, 150, 5: DRAW 430,75 
530,75, 13: DRAW 540,85 
430 , 1 50 : DRAW 530 , 1 65 
540, 190: PLOT 480,75,15 
430, 75: DRAW 420,35 
480 , 1 50 : DRAW 430 , 1 65 
420, 190 

480 , 1 50 , 1 2 : DRAW 500 ,115 
480, 75: DRAW 500,50 
490,25 

480, 150, 14: DRAW 460,115 
480,75: DRAW 460,50 
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20620 
20630 
20640 
20650 
20660 
20670 
20680 
20750 

21000 

2 1010 
21020 
21030 
21040 
2 1 050 
21060 
21070 
21 100 
21110 
21120 
2 1 1 30 
21140 
21150 
21160 
21170 



DRAW 470,25 

TAG #3: PLOT 0,0,5 

MOVE 466,344: PRINT #3,CHR*< 

MOV E 466 , 1 69 : PR I NT #3 , CHR* ( 

PLOT 0,0,0 

GOSUB 2 1040: GOSUB 21060 

GOSUB 2 1 1 40 : GOSUB 2 1 1 60 

RETURN 

INK 11,24: INK 

RETURN 

INK 9,24: INK 8,0 

RETURN 

INK 10,24: INK 1 1 , 

RETURN 

INK 8,24: INK 9,0 

RETURN 

INK 15,24: INK 14, 

RETURN 

INK 13,24: INK 12, 

RETURN 

INK 14,24: INK 15, 

RETURN 

INK 12,24: INK 13,0 

RETURN 



224 >; 

224) ; 



1 , 











Now 'MERGE 1 the ' INKEYS' routine- 



Parrot 




Who's a Pretty Program 9 

Here are four pretty parrots, each a different colour and each holding 
a 'string' in his mouth. 

When the program runs the parrots will commence pulling the 
strings in sequence. The first set will consist of only one pull. Then it 
will be your turn to copy the sequence. 

The perches of the birds have been arranged to correspond to the 
arrangement of the cursor keys. Thus by pressing 'up 1 the top bird will 
pull a string, 'down' will activate the bottom bird and so on. As usual 
a joystick may be used instead of the cursor pad. 

The computer produces a sequence which starts off simply but gets 
very long. During testing of this program no one was able to 
remember more than a sequence of 25. Amnesia usually sets in at 
around 12. As it stands the longest sequence that the parrots will 
produce is 50 long. If you remember that length then you must have 
some sort of photographic memory - or perhaps you are an android! 

This simple game can be great fun at parties where all sorts of. 
forfeits or penalties may be devised for the losers. 
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2 REN <<< PARROT ANDY / JIN >>>>> 

3 REM 

5 addr=34999: GOSUB 29500 
10 SYMBOL AFTER 223: MODE 

12 DIM no<50> 

13 INK 0,0:BORDER 0:INK 12,12 
15 GOSUB 10000: GOSUB 10500 

25 sc=0=hi=0 
30 GOSUB 12500 

35 FOR a=l TO 4 

36 IF a=l THEN PEN 7 ELSE IF a=2 THEN PE 
N 11 ELSE IF a=3 THEN PEN 14 ELSE PEN 13 

40 GOSUB 1 1 000 : NE XT a 

55 po=0:CALL &BB03 

58 REM >>>>>>>> MAIN LOOP <<<<<<<< 

60 n=INT<RND(l>*3>+l 

62 po=po+l 

65 no(po)=ri 

66 GOSUB 13500SLOCATE 1,22:PRINT "My tur 

n" 

70 FOR b=l TO po 

75 GOSUB 13000 

80 NEXT b 

82 CALL &BB03 

85 FOR t=l TO 1000 ".NEXT t 

87 b=l 

88 GOSUB 1350O* PEN i: LOCATE 1,22:PRINT " 

Your turn" 
90 GOSUB 29000 

95 IF le=l THEN a=4 : SOUND 1 , 800 , 10 : GOSUB 
12000: PEN 13:G0SUB 11500= FOR t=l TO 500 
:NEXT t 

100 IF ri=l THEN a=2: SOUND 1 , 400 , 10 : GOSU 
B 12000: PEN ll:GOSUB 11500: FOR t=l TO 50 
0:NEXT t 

105 IF up=l THEN a- l: SOUND 1 ,200, 10= GOSU 
B 12000: PEN 7: GOSUB 11 500: FOR t=l TO 500 
:NEXT t 

110 IF do=l THEN a=3: SOUND 1 , 600 , 10 = GOSU 
B 12000: PEN 14: GOSUB 11500: FOR t=l TO 50 
0:NEXT t 

115 IF le+ri+up+do<l THEN 90 
120 GOSUB 12000 
125 GOSUB 11000 
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130 IF no(b)=a THEN 131 ELSE 135 

131 IF b=po THEN GOSUB 13500 : LOCATE 1,22 
:PEN UPRINT "Well done , " ;po " so far-" 

132 IF b=po THEN FOR t=l TO 1500:NEXT t : 
GOSUB 1 3500 : GOTO 60 

133 b=b+l:GOTO 90 
135 GOSUB 13500: PEN 1 

140 LOCATE 1,22: PRINT "Wrong sequence" 

145 LOCATE 1,23: PRINT "Af ter" ; po-1 ; " mov 

ements - " 

150 FOR t=l TO 3000: NEXT t 

155 GOSUB 13500 

160 LOCATE 1,22: PRINT "Sequence was" 

165 FOR t=l TO 1000: NEXT t 

170 FOR b=l TO po 

175 GOSUB 13000 

180 NEXT b 

185 GOSUB 13500 

190 LOCATE 1,23:PRINT "Try again-" 

195 FOR t=l TO 2000: NEXT t 

200 GOSUB 1 3500 

205 GOTO 55 

9990 REM >>>>>> CHARACTERS <<<<<<<<<<< 

1 0000 SYMBOL 224 ,16,16,16,16,0,14,31,63 

10005 SYMBOL 225,0,0,28,126,127,207,207, 

207 

10010 SYMBOL 226,0,0,0,0,0,128,123 

10015 SYMBOL 227,63,49,40,8,16,33,35,3 

10020 SYMBOL 223,255,255,254,124,126,255 

, 255 , 255 

10025 SYMBOL 229,0,0,0,0,0,128,192,192 

10030 SYMBOL 230,3,3,3,3,3,1,1,1 

10035 SYMBOL 231,223,191,191,223,223,239 

,247,251 

10040 SYMBOL 232,192,192,224,224,224,240 

, 240 , 248 

10045 SYMBOL 233,1,0,0,0,56,127,0,0 

10050 SYMBOL 234,253,126,12,24,48,252,0, 



10055 SYMBOL 235,248,120,60,23,14,6,3,0 

10060 SYMBOL 236,63,30,0,0,7,15,0,0 

10065 SYMBOL 237,248,0,0,0,0,0,0,0 

10070 SYMBOL 238,7,31,63,127,99,99,127,6 

10075 SYMBOL 239,144,225,247,251,139,115 
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,251 ,255 

1 0080 SYMBOL 240 , , 254 , 255 , 255 , 255 , 255 , 2 

55,255 

10035 SYMBOL 241,3,14,252,252,248,240,22 

4, 128 

10090 SYMBOL 242,16,16,16,16,16,16,16,16 

10095 SYMBOL 243,255,170,35,170,35,170,8 

5,255 

10490 REM >>> SET UP VARIABLES <<<<<<<< 

1 0500 p x < 1 > = 1 5 P x ( 2 ) = 1 4 : p x < 3 ) =6 : p x < 4 > =3 

1 0505 py ( 1 > =5 s py < 2 > = 1 3 s py < 3 ) = 1 5 : p y < 4 ) =7 

10510 RETURN 

10990 REM >>> PRINT UPRIGHT PARROT <<<< 

11000 LOCATE px(a>,py(a> 

11010 PR I NT CHR* < 224 > ; CHR* <". 225 ) ; CHR* < 2^6 

> 

11015 LOCATE px(a) ,py<a>+l 

1 1 020 PR I NT CHR* < 227 ) ; CHR* ( 228 ) ; CHR* < 229 

> 

11025 LOCATE px (a) , py (a}+2 

11030 PRINT CHR*<230>;CHR*<:231>;CHR*(232 

> 

11035 LOCATE px(a),py(a)+3 

11040 PRINT CHR*<;233> ;CHR*<234> ;CHR$<235 

> 

11045 RETURN 

11490 REM >>> PRINT BENT DOWN PARROT << 

11500 LOCATE px<a)-l,py<a;>+2 

11510 PRINT CHR* < 238 ) ; CHR* ( 239 ) ; CHR* ( 240 

>;CHR*<241> 

11515 LOCATE px <a>-l , py <a>+3 

11520 PRINT CHR*<236);CHR*<234>5CHR*(237 

) 

11521 LOCATE px <a> , py(a)+l = PRINT CHR* (24 

2> 

11522 LOCATE px <a> , py<a> : PRINT CHR* < 24^ 

11525 RETURN 

11990 REM >>>>> BLANK PARROT <<<<< 

12000 LOCATE px<a) ,py(a> : PRINT " 

12005 LOCATE px (a> , py<a)+i = PRINT " 

12010 LOCATE px(a>-l ,py<a>+2: PRINT " " 

12015 LOCATE px <a>-i , py<a>+3 : PRINT M " : L 

OC ATE p x < a > +2 , p y < a > +3 : PR I NT H " 

12020 RETURN 
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12490 REM >>>>>>> DRAW SCREEN <<<<<<<< 

12500 FOR y=l TO 4: PEN 7= LOCATE 10,y:PRI 

NT CHR*<242) :NEXT y 

12505 FOR y=l TO 12:PEN 1 1 : LOCATE 14,y:P 

RINT CHR*< 242): NEXT y 

12510 FOR y=l TO 14:PEN 14:L0CATE 6,ysPR 

INT CHR* ( 242 )s NEXT y 

12515 FOR y=l TO 6: PEN 13: LOCATE 3,y=PRI 

NT CHR*(242>:NEXT y 

12520 FOR x=l TO 20:LOCATE x , 1 : PEN 15:PR 

INT CHR*<243>: LOCATE x,20:PEN 3:PRINT CH 

R*<"243> :NEXT x 

12530 LOCATE 10,9: PEN 12: PRINT CHR*<243;> 

; CHR* < 243 > ; CHR* < 243 > 

1 2535 LOCAT E 1 4 , 1 7 : PR I NT CHR* < 243 > ; CHR* < 

243) jCHR*<243> 

12540 LOCATE 6,19:PRINT CHR*<243) ; CHR*<2 

43 > ;CHR*(243> 

12545 LOCATE 3, Us PRINT CHR*<243> ; CHR*<2 

43 "> ;CHR*<243> 

125*0> INK 15,24: INK 13, IS: INK 14,14 

12560 PEN 13: LOCATE 7, 24: PR I NT "PARROT"; 

12600 RETURN 

12990 REN >>>>>>>> MAKE SOUND <<<<<<<< 

13000 IF no(b)=l THEN a=l=GOSUB 12000 =PE 

N 7SG0SUB 11 500 s SOUND 1,200,10:FOR t=l T 

O 500: NEXT t 

13005 IF no<b)=2 THEN a=2:G0SUB 12000:PE 

N 11: GOSUB 1 1 500 : SOUND 1 , 400 , 1 : F OR t = 1 

TO 500: NEXT t 

13010 IF no<ta>=3 THEN a=3: GOSUB 12000: PE 

N 14: GOSUB 1 1 500 : SOUND 1 , 600 , 1 : F OR t = 1 

TO 500: NEXT t 

13015 IF no(b>=4 THEN a=4: GOSUB 12000: PE 

N 13: GOSUB 1 1 500 : SOUND 1 , 800 , 1 : F OR t = 1 

TO 500:NEXT t 

1 3020 GOSUB 1 2000 : GOSUB 1 1 000 

13025 RETURN 

13450 REM 

13500 LOCATE 1,22:F0R q=l TO 20:PRINT M 

M ; :NEXT q 

13505 LOCATE 1,23: FOR q=l TO 20: PR I NT " 

M ; :NEXT q 
13510 RETURN 



Now 'MERGE 1 the ' INKEYS' routine 
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An Arcade Gobble 

This is the first of three arcade type games included in this book. It is a 
variation on a well known theme in which you guide your character 
around a maze eating up the dots as you go. 

Life is never easy in the arcade world and so there are a couple of 
nasties out to eat up the dots before you do. 

To make matters even worse they will kill you if they get you! The 
object of this variant is to pick up as many dots as possible before all 
the dots are gone, without being killed. Once all the dots are gone the 
next screen will be displayed. 

Controls are, as usual, joystick or cursor pad, which change the 
direction of the Pick Man. 

In the hands of a skilled and patient player, incredible high scores 
can be achieved. The 4 High Score' subroutine can provide a Pick 
Man Hall Of Fame. 
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1 REM < < < < < < < pic k m a n < ~ > I S S I > > > > > > > 

2 REM 

500 SYMBOL 240,3,15,63,63,123,113,241,25 

1 

510 SYMBOL 241,192,240,252,252,222,142,1 

43 , 223 

520 SYMBOL 242,255,255,127,127,63,63,15, 

3 

530 SYMBOL 243,255,255,254,254,252,252,2 

40, 192 

550 SYMBOL 244,3,15,63,63,123,113,241,25 

1 

560 SYMBOL 245,192,240,252,252,222,142,1 

43 , 223 

570 SYMBOL 246,255,255,127,127,63,63,15, 

3 

580 SYMBOL 247,255,255,254,254,252,252,2 

40, 192 

600 SYMBOL 248,3,29,49,33,65,65,129,255 

6 1 SYMBOL 249 , 255 , 1 29 , 65 , 65 , 33 , 49 , 29 , 3 

620 SYMBOL 250,192,176,140,132,130,130,1 

29 , 255 

630 SYMBOL 251,255,129,130,130,132,140,1 

76, 192 

640 SYMBOL 252,255,129,129,129,129,129,1 

29 , 255 

650 SYMBOL 253,3,3,0,0,0,0,0,0 

660 SYMBOL 254,15,112,64,128,128,64,112, 

15 

670 SYMBOL 255,240,14,2,1,1,2,14,240 

750 hi=1000 

980 REM >>>>>>>>>> main loop <<<<<<<<<< 

1000 GOSUB 21000 

1040 sc=0: count=8: 1 i-3 

1060 GOSUB 20000: t*=CHR*( 240) +CHR* (241 > : 

b $=CHR$ ( 242 > +CHR* < 243 > 

1 065 1 1 *=CHR* ( 244 > +CHR* < 245 > : b 1 *=CHR* ( 24 

6>+CHR*(247) 

1070 PEN 2 

1080 LOCATE 18,1 : PRINT t*;t*;t* 

1090 LOCATE 18,2: PRINT b*;b*;b* 

1500 x=20:y=17 

1510 x 1=2 :y 1=4 : >c2-38 : y2=4 
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2 O G SUB 22 

2020 GOSUB 25500 

2040 GOSUB 22000 

2050 IF <xl=x AND yl=y) OR (>:2=>; AND y2- 

y> THEN dead=l 

2070 IF count >25S THEN GOTO 24000 

2080 IF dead=l THEN GOTO 24500 

3000 GOTO 2000 



19980 


R E M > > > > > > > > > > scree n < < < <. < < <. < <■ <• <■ 


20000 


INK 0,0: INK 1,18,19: INK 2,6,16=INh 




i 2 


20005 


SPEED INK 6,6 


20010 


PAPER 0:PEN l:MODE 1: BORDER <& 


20020 


PRINT "SCORE: 00 



HIGH:" j hi: PRINT 
20030 w*=CHR*(252)+CHR*<252) : >;*=CHR*<248 
> +CHR* < 250 ) : v*=CHR* C 253 > +CHR* < 32 > 
20035 y*=CHR*<249>+CHR*<251 ) : s*=CHR*<254 
>+STRING*<8,252>+CHR*<255> 

20040 r*=v*+v*+v* : s*=r*+v*+v* : a$-CHR*<24 
8 > +STR I NG$ < 38 , 252 > +CHR* ( 250 > 
20050 PRINT a$; 
20060 a$=CHR$(252)+s*+w$+s$+v$+v$+w$+s*+ 

CHR*<252> 

20070 PRINT a$;:q$=a$ 

20080 PRINT a$; 

20090 a*=CHR* < 252 > +v*+CHR* ( 254 > +w*+w*+CH 

R*C250>+v*+y*+v*+z*+v*+y*+v*+CHR*<248>+w 

*+ w*+CHR* ( 255 > +v*+CHR* ( 252 ) 

20100 PRINT a$; 

201 10 a$=CHR$(252>+r$+w*+s$+5$+v$+w$+r$+ 

CHR*(252> 

20120 PRINT a$; 

20130 MID*<a* $ 8,2>=y*:MID*<a*,32,2>=y* 

20140 PRINT a*; 

20150 a$=w$+w*+CHR*(25<&) + r$+x$+v$+z*+v$ + 

x$+*r$+CHR*<248}+w$+w$ 

20160 PRINT a$; 

20170 a$~w$+w$+CHR$<251 )+y*+w*+s*+v*+v*+ 

w*+r*+CHR*<249>+w*+w* 

20180 PRINT a*; 

20190 a*=CHR*<;252) + r* + x* + v* + w* + s* + v*+v* + 

w*+v*+x*+r*+CHR*<252) 

20200 PRINT a*; 

20210 a*=CHR*(251 >+r*+w*+v*+y*+v*+CHR*<2 
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48>+w*+CHR*<251 >+y* 

20220 a*=a*+CHR* < 249 > +w* + CHR* ( 250 > +v*+y % 

+v*+w*+r*+CHR* < 249 ') 

20230 PRINT a$; 

20240 a*=CHR*(32)+v*+x*+v*+w$+r*+w*+STRI 

NG$(fe,32)+w*+r*+w*+v$+x*+v$ 

20250 PRINT a* ; 

20260 M I D* < a* , 4 , 2 > ^y * : M I D* < a* , 36 , 2 ) =y % 

20270 PRINT a$; 

202S0 a*=CHR*(250>+r*+w*+v*+x*+v*+w*+STR 

I NG$ ( 6 , 32 > +w$+v$+x$ + v*+w$ + r$+CHR* < 243 ) 

20290 PRINT a$; 

20300 a*=CHR*<252>+MID*<a*,2, lg>;>+w*+v*+C 

HR* < 249 > +STR I NG* ( S , 252 ) +CHR* C 25 1 > +v$+w$+ 

M I D$ ( a$ , 30 ,10) +CHR* ( 252 ) 

20310 PRINT a$; 

20320 a$=w$+w$+CHR$ ( 250 ) + v*+w$+ v*+w*+s*+ 

v $+ v $+. w $+v*+w*+v*+CHR*<24S>+w*+w* 

20330 PRINT a$ ; 

20340 MID*(a*,5,I>=CHR*<251> : MID* (a* ,36, 

l>=CHR*(249>:MID*<a*,8,2>=y*sMID*<a* 1 32, 

2>=y* 

20350 PRINT a*; 

20360 a$=CHR*(252)+5*+w$+v$+z*+v*+w*+5$+ 

CHR$<252> 

20370 PRINT a*; 

20330 a$ = q$ 

20390 PRINT a$; 

20400 b*=CHR*<24S>+w*+w*+CHR*<250> 

20410 MID*<a* f 4,6)=b*:MID*<a*,32,6>=b* 

20420 PRINT a*; 

20430 fc.*=CHR*<249)+w*+w*+CHR*<251 ) 

20440 M I D* < a* , 4 , fc > =b* : M I D* < a$ , 32 , 6 > =b* 

20450 MID*<a*,16,l®>=z* 

20460 PRINT a$; 

PRINT q$; s PRINT q* ; 

a*=CHR* < 249 > +STR I NG* < 38 , 252 > +CHR* < 



20470 

20430 

251) 

20490 

20500 

20930 

2 1 000 
2101 

21020 
2 1 250 



PRINT a*; 

RETURN 

REN > > > > > > > > > initially 

MEMORY 34998 

addr=34999 : GGSUB 29500 

1 o ca = 35029 : GOSUB 30500 

RETURN 



< =:. < < < < 
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2 1 980 

22000 

22010 

22020 

22030 

22040 

22190 

22200 

22980 

23000 

23010 

23050 

23060 

23100 

23150 

23200 

23210 

23250 

23260 

23300 

23350 

23400 

23410 

23450 

23460 

23500 

23550 

23600 

23610 

23650 

23660 

23700 

23750 

23800 

23810 

23820 

23850 

yl + 1 : 

23860 

y2+l 

23890 

23980 

24000 

24020 

24080 



r e m y y y y' y y y y - 
go sub 29000 

IF le=l THEN 
IF ri = l THEN 
IF up=l THEN 
IF do=l THEN 
GOSUB 26000 
RETURN 

REN >>>>>>>>: 
-i,y = 



movement <<<<<<■ 



GOSUB 

GOSUB 
GOSUB 
GOSUB 



:-000 

>200 
5400 
>600 



LOCATE 

IF ch<>32 THEN 

LOCATE x-l,y+l 

IF ch<>32 THEN 

GOSUB 23800: x = 

RETURN 



> '> c h e c k 
GOSUB 32 
RETURN 
GOSUB 
RETURN 
-1 : IF 



s \ \ --. - : , \ --• K 

000 
32000 

x=l THEN 



LOCATE 

IF ch< 

LOCATE 

IF ch<>32 THEN 

GOSUB 23800 : x = 

RETURN 



x+2 , y : GOSUB 32000 
32 THEN RETURN 
x+2,y+l : GOSUB 
RETURN 
<+l : IF 



x ,y-l = GOSUB 32 
>32 THEN RETURN 

x+1 ,y-l = GOSUB 
;-32 THEN RETURN 
■y=y-i 



LOCATE 

IF ch< 

LOCATE 

IF ch< 

GOSUB 23800 

RETURN 

LOCATE x,y+2: GOSUB 32 

IF ch<>32 THEN RETURN 

LOCATE x+1 ,y+2: GOSUB 

IF ch<>32 THEN RETURN 

GOSUB 23800 : y=y+l 

RETURN 

x,ysPRINT M 
x,y+l: PRINT " 



32000 
;< =39 THEN 

000 



32000 

000 
2000 



LOCATE 
LOCATE 
RETURN 
LOCATE 

PRINT M 
LOCATE 

PRINT M 
RETURN 
REM >> 



:1 ,yl : PRINT 
ii 

;2,y2:PRINT 



" : LOCATE 
" : LOCATE 



xl, 



clear 



sc=sc+1000: LOCATE 
RESTORE 40100= tune 
count=0 



6,1 



: PRINT sc 

: GOSUB 31 



000 
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240 w0 GOTO 1060 

24430 REM > > > > > > > > > > > > dead < < < < < < «« < 

24500 c$=t$:d$=b$: dead=0 

24510 LOCATE x,y: PRINT " ": LOCATE x,y+l 

: PRINT " 

24530 RESTORE 40000 : tun e=S : GOSUB 31000 

24540 GOSUB 23350: PEN 2 

24550 1 i=l i-1 s IF li=0 THEN GOTO 35000 

24560 LOCATE 18,1: PRINT c$: LOCATE 13,2=P 

RINT d* 

24570 IF li=l THEN c$=" ":d$= M 

24580 LOCATE 20,1= PRINT c*: LOCATE 20,2: P 

RINT d* 

24590 IF li=2 THEN c*= M " :d*=" 

24600 LOCATE 22,1: PRINT c*: LOCATE 22 , 2 : P 

RINT d* 

246-1 © G T 1 5 

2498 R E M > > > > > > > > move baddies < < < < < < < 

25000 LOCATE x 1 - 1 , y 1 : GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 

25005 IF c h=253 THEN c o un t = c o unt+1 

250 1 L OC AT E x 1 - 1 , y 1 + 1 : GOSUB 30000 = IF c h 

<>253 AND ch>247 THEN RETURN 

25015 IF ch=253 THEN count=count+l 

25020 GOSUB 23350 sxl=M 1-1 s GOSUB 26040: RE 

TURN 

25050 LOCATE x2~ 1 , y2 : GOSUB 30000: IF ch<> 

253 AND ch>247 THEN RETURN 

25055 IF ch=253 THEN count=count+l 

25060 LOCATE x2- 1 , y2+l : GOSUB 30000: IF ch 

<>253 AND ch>247 THEN RETURN 

25065 IF ch=253 THEN coun t=coun t+1 

25070 GOSUB 23850 : x2=x2~l : GOSUB 26040: RE 

TURN 

25100 LOCATE x 1+2 , yl : GOSUB 30000 : I F ch<> 

253 AND ch>247 THEN RETURN 

25 1 05 IF c h = 253 THEN c o unt = c o un t + 1 

25 1 1 LOCATE x 1+2 , y 1 + 1 : GOSUB 30000 : I F c h 

<>253 AND ch>247 THEN RETURN 

25115 IF c h =253 THEN c o un t = c o un t + 1 

25 1 20 GOSUB 23850 : x 1 = x 1 + 1 : GOSUB 26040 : RE 

TURN 

25 1 50 LOCATE x2 + 2 , y2 : GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 

25 1 55 I F c h = 253 THEN c o un t= c o un t+ 1 
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25 1 60 LOCATE x2+2 , y2+ 1 : GOSUB 30000 : I F ch 

<>253 AND ch>247 THEN RETURN 

25165 IF ch=253 THEN count=count+l 

25170 GOSUB 23850 : x2=x2+l : GOSUB 26040: RE 

TURN 

25200 LOCATE >t 1 , y 1 - 1 : GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 

25205 IF ch=253 THEN coun t^coun t+1 

252 1 LOCATE x 1 + 1 , y 1 - 1 : GOSUB 30000 : I F ch 

<>253 AND ch>247 THEN RETURN 

25215 IF ch=253 THEN coun t=coun t+1 

25220 GOSUB 23S50 : y 1 =y 1 - 1 : GOSUB 26040 : RE 

TURN 

25250 LOCATE x2 , y2- 1 : GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 

25255 IF ch=253 THEN coun t= coun t+1 

25260 LOCATE x2+ 1 , y2- 1 : GOSUB 30000 : I F c h 

<>253 AND ch>247 THEN RETURN 

25265 IF ch=253 THEN count==count+l 

25270 GOSUB 23S5© : y2=y2-l : GOSUB 26040: RE 

TURN 

25300 LOCATE x 1 , y 1 +2 s GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 

25305 IF ch==253 THEN count = count+l 

25310 LOCATE x 1+1 , y 1+2: GOSUB 30000 : I F ch 

<>253 AND ch>247 THEN RETURN 

25315 IF ch=253 THEN courit = count+l 

25320 GOSUB 23850 : yl=y 1+1 : GOSUB 26040: RE 

TURN 

25350 LOCATE x2 , y2+2 : GOSUB 30000 : I F c h< > 

253 AND ch>247 THEN RETURN 



IF ch=253 THEN coun t=coun t+1 



2L ^.1 ^J -Ii 

25360 LOCATE x2+ 1 , y2+2 : GOSUB 30000 : I F ch 

<>253 AND ch>247 THEN RETURN 

25365 IF ch=253 THEN coun t= coun t+1 

25370 GOSUB 23850 : y2=y2+l : GOSUB 26040: RE 

TURN 

25400 RETURN 

25500 IF RND<1)>0.7 THEN GOTO 25550 

25510 IF x>xl THEN GOSUB 25100 

25520 IF x<xl THEN GOSUB 25000 

25530 IF y>yl THEN GOSUB 25300 

25540 IF y<yl THEN GOSUB 25200 

25550 IF RND(1>>0.6 THEN RETURN 

25560 IF x>x2 THEN GOSUB 25150 
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25570 IF x<x2 THEN GOSUB 25050 
255S0 IF y>y2 THEN GOSUB 25350 
25590 IF y<y2 THEN GOSUB 25250 
25600 RETURN 

25980 REN > > > > > > > > > p r i n t man < < < < < < < < < 
26000 PEN 2 

26010 LOCATE x,y:PRINT t$ 
26020 LOCATE x,y+l: PRINT b* 
26030 RETURN 
26040 PEN 3 

26050 LOG AT E >; 1 , y 1 : PR I NT 1 1 * 
26060 LOCATE xl ,yl + i = PRINT bl$ 
26070 LOCATE x2,y2:PRINT tl$ 
260S0 LOCATE x2 , y2+l : PRINT bl$ 
3 9 S R E M > > > > > > > > > play t u n e < < < < < < < < < 
3 1 000 F OR n = 1 TO t un e 
3 1 1 RE AD n o t e , d u ra 
3 1 020 SOUND 2 , ri o t e , d u r& , 1 5 
31030 NEXT n 
31040 RETURN 

3 1 9 S REN > > > > > > > > > detectio r i < < < < < < < < < 
3 2 G O S LI B 3 
32010 PEN 1 

32020 IF ch=253 THEN ch=32 : s c=sc+10 : SOUN 
D 2, 120, 1 , 15: count=count+l : LOCATE 7 , 1 s PR 
INT sc 

32030 IF ch=32 THEN PRINT " " :RETURN 
ch>247 THEN RETURN 



=• > > !> > > > > > end game < < < < < < < < 

S, 3 : PRINT "YOU HAVE BEEN GO 

S,21:PRINT "Press 'Y' to pi 
ay Again" 

35040 IF sc>hi THEN hi==sc = LOCATE 10,9: PR 
INT "A new high gobble !" 

a*=UPPER*(a*) 
1 THEN GOTO 35150 



32040 


IF ch> 


32050 


dead=l 


32090 


RETURN 


349S0 


REN >> 


35000 


CLS 


35010 


PEN 1 


35020 


LOCATE 


BBLED 


i " 


35030 


LOCATE 



35150 


a*=INKEY* 


35160 


IF a*<> H Y 


35170 


GOTO 1000 


39990 


REN * * * 


40000 


DATA 2S4, 



dead tune * * * 
, 20 , 234 , 20 , 234 , 20 , 353 , 71 
1 9 , 20 ,319, 20 ,319, 20 , 379 , 75 
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40090 REM * * # screen tune * * * 

40 1 00 DATA 319, 20 , 253 , 20 ,213, 50 , 253 , 20 , 2 

13,20,253,50 

40110 DATA 319,20,253,20,213,50,253,20,3 

19,20,253,50 



Now 'MERGE' the MNKEYS' and the 
' CHAR CHE CK ' routines- - - 



20 

Skippy 




One Jump Ahead 

'Once upon a time in Australia, which is a long way from Britain, 
there lived a little kangaroo. This little chap was called Skippy and he 
was very happy for many years. 

'Skippy had his home by the banks of a fast flowing river on which 
logs floated. He used to enjoy sitting in his little hut looking out 
across the beautiful countryside, but one day things changed, 

'The nasty humans came, and built a car expressway right next to 
the river. This meant that every day when Skippy and his friends 
returned from foraging for food, they had to cross the busy road, 
jump onto the logs to cross the river and then jump off as they passed 
their home. This is very dangerous and so they would like you, dear 
readers, to help.' 

Using the joystick or keyboard guide Skippy and his friends safely 
between the cars, onto the logs and into their homes. Your assistance 
to wildlife will be rewarded with points in relation to how well you 
guide each kangaroo! 
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This game can be merged with the 'High Score' program to add 
those extra features to it. 



10 REM <<< SKIPPY 


AND 


20 REM 




30 SYMBOL AFTER 223 




40 MEMORY 34990 




60 GOSUB 350 




65 gam$= n Skippy n 




70 REM 




110 REM >>>> DEFINE 


OBJECTS 



/ JIM 



>+CHR*<:.226> 



1 20 c ar*=CHR* < 224 > +CHR* ( 225 > 

1 30 1 o r*=CHR$ <; 22S > +CHR* ( 227 ; 

1 40 b i k*=CHR* < 24 1 > +CHR* < 242 ) 

1 50 1 o*=CHR* ( 229 > +CHR* ( 230 ) +CHR* < 23 1 > 

1 55 gap*=CHR* ( 245 > +CHR* < 245 > +CHR* < 245 > 

160 g*=STRING*(2," " ) 

165 h*=STRING*<3," *' > 

170 cl*=car*+car*+g*+g*+g*+g*+car*+g*+g* 

+car$+car*+car*+g$+car$+g*+car$+car*+g*+ 

g$+g$+car$+g$+g$+car$+g$ 

175 cl$=cl$+car$+car$+g*+g*+g*+car$+car$ 

+car$+car$+g$+g$+g$+g$+car$+g*+car$+g*+c 

ar$+car$+g$+g$+g*+car$+g$+g$+car$+car$ 

180 c2$=lor$+h$+h$+h$+h$+lor$+h$+lor$+lo 

r-*+h*+h*+lor*+h*+h*+h*+lor*+h*+h*+h*+h*+ 

lor*+h$+h*+h$+lor$+lor$+lor$+h$+h$+h$+h$ 

+ M M +lor$+h$ 

190 c3*=bik*+bikS+h*+h*+g*+bik*+bik*+bik 

*+bik*+bik*+h*+h*+g*+bik*+bik*+bik*+bik* 

+bik*+h*+h*+" ,, +bik*+g*+bik*+h*+" n +bik* 

+bik*+bik*+h*+" "+bik*+h*+h*+h*+g*+bik*+ 

bik*+h*+h*+g*+bik*+bik*+bik*+bik* 

200 1 l*=lo*+gap*+gap*+gap*+lo*+gap*+lo*+ 

gap*+lo*+gap*+lo*+gap*+gap*+gap*+gap*+lo 

*+gap*+gap*+lo*+lo*+gap*+gap*+gap*+lo*+l 

o*+lo*+CHR*<245>+CHR*<:245> + lo* + gap* + gap* 

-*-gap$+lo$+gap$+lo$ 

210 12*==lo*+lo* + gap* + gap*+lo*+gap*+lo*+g 

ap*+gap*+lo*+lo*+gap$+lo*+gap*+gap*+lo*+ 

1 o$+gap$+l o$+l o*+gap*+gap*+l o*+gap*+lo*+ 

gap*+gap*+l o*+lo$+gap*+gap$+lo*+gap$+l o$ 

215 FOR a-1 TO 100 : ri v$=ri v*+CHR$<245) s N 

EXT a 

220 FOR a=l TO 20 : ban l$=ban 1*+CHR*<243) : 
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NEXT a 

230 FOR a=l TO 20 STEP 4 : ban l$=ban 1*+CHR 

% ( 243 > +CHR* ( 243 > +CHR* < 243 > + " M : NE X T a : b a 

n 1 * = L E FT* < ban 1 * , 39 > : ban 1 *=ba\i 1 *+CHR* ( 243 

> 

i00:bari2*=bari2* + CHR*<244) 



240 FOR 
:NEXT a 
250 FOR 
NEXT a 
255 FOR 
NEXT a 
260 hi~0 



a=l TO 

a=l TO 40!bar.3*=ban3* + CHR*<;244) 

a=l TO 20sbari4* = ban4*+CHR*<243> 



300 

310 
315 
320 
330 
340 
350 
360 
362 
365 
370 
373 
375 
376 

400 

407 
420 
430 
440 
450 
460 
461 
462 
463 
464 
510 
560 
570 
580 



SET 
: c3 



ka=3: sc=0 
GOSUB 710 
REM >>>>> 
cl=-l : c2=l 
ccl=S0: cc2=l ' 
k=232:k 1=232 
kx=10:ky=22 
ok=10 « oy = 22 
kab=0 



UP VARIABLES <<<<< 
=-1 : 1 1=1 : 12=- I 
cc3=80s 1 l 1=70: 112=10 
k2=233 



MAIN GAME LOOP 
740 



c c3 = c c3+c3 



REM >>>>>> 

GOSUB 570 

ret=l :GOTO 

ox=kx s oy = ky 

GOSUB 40000 

ccl = ccl + cl s cc2=cc2+c: 

111=111+11 : 112=112+: 

IF ccl=l THEN ccl=3: 

IF cc2=81 THEN cc2=: 

IF cc3=l THEN cc3=:i 

IF 111=81 THEN 111=: 

IF 112=1 THEN 112=8: 

IF ky=S THEN kdx=-i 

IF ky=6 THEN kdx=l 

IF kx+kdx=0 OR kx+kdx=21 THEN 505 

ret=2=G0T0 740 

ow = kx = oy=ky : GOTO 370 

REM >>>>>>> PRINT OBSTRUCTIONS <<<< 

PR I NT CHR* ( 30 ) : PR I NT : I NK 2 , 20 

PR I NT: PR I NT: PR I NT: PEN 10: PAPER 0:PRI 
NT MID*<;L2*,LL2,19> 

590 PRIIMT:PRINT MID*<L1* , LL 1 , 19> : PRINT : P 
RINT:PRINT:PRINT 
600 PRINT:PRINT:PRINT:PAPER 0:PEN 8:PRIN 



1 42 Sensational Games for the A mstrad 

T MID*<C3*,CC3, 19) 

610 PRINT: PEN 2: PRINT MID*C.C2* ,CC2 , 19) 

620 PRINT: PEN 7: PRINT MID*<C1* , CC1 , 19} 

630 RETURN 

650 REM >>>>>>> PRINT KANGAROO <<<<<<< 

690 PEN 12SPAPER 0: LOCATE kx,ky:PRINT CH 

R*<k>: RETURN 

692 REM >>>>>>> ERASE KANGAROO <<<<<<< 

693 IF oy<5 THEN cc=243: PAPER s PEN 15 

694 IF oy=8 OR oy=6 THEN cc=0:GOTO 700 

695 IF oy>4 AND oy< 1 1 THEN c c=207 : PAPER 
10:PEN 14 

696 IF oy>9 AND oy<15 THEN cc=244: PAPER 
0:PEN 14 

697 IF oy>14 AND oy<22 THEN cc=32: PAPER 
0:PEN 12 

693 IF oy>21 AND oy<24 THEN c c=244 : PAPER 
0:PEN 14 

699 IF oy=24 THEN cc=243: PAPER 0=PEN 15 

700 LOCATE ox, oy: PR I NT CHR*( cc> = RETURN 
705 REM >>>>>>>> DRAW SCREEN <<<<<<<< 
710 MODE 0JINK 15,24: INK 14,26: BORDER 0: 
PAPER 0:CLS:PRINT CHR*<;30> : : INK 0,0:taord 
r 

720 PRINT:PAPER 0:PEN 15:PRINT banl*;:PA 
PER 0:PEN 10:PRINT riv*;:PAPER 0:PEN 14: 
PR I NT bar«2$ : PR I NT : PR I NT : PR I NT : PR I NT : PR I N 
T:PRINT:PEN 14:PRINT ban3*;:PEN 15=PRINT 

ban 4* 
725 PRINT CHR*(30) ; "Score High Skipps" 
730 RETURN 

735 REM >>>>> MOVEMENT FROM INKEY* <<<< 
740 GOSUB 29000 
745 CALL &BB03 

750 IF up=l AND ky<ll THEN k 1=232 : k2=233 
:kdy=-2skdx=0:sc=sc+l ELSE IF up=l THEN 
k 1 =232 :k 2=233: kdy=-l : kdx=0: sc = sc + l 
760 IF ri = l AND kx<19 THEN k 1=234 : k:2=235 
:kdx=l:kdy=0 

770 IF le=l AND kx>l THEN k 1=236 : k2=237 : 
kdx=-l : kdy=0 
775 IF ex=l THEN END 

780 IF do=l AND ky<ll THEN k 1=238 : k2=239 
:kdy=2:kdx=0 ELSE IF do=l THEN kl=238:k2 
=239:kdy=l : kdx=0 
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7S1 kx=kx+kdx : ky=ky+kdy : LOCATE kx , ky : GOS 
UB 30^00 

782 IF le = l OR up=l OR do=l OR ri==l THEN 
FOR so=300 TO STEP -10: SOUND l,so,l:N 

EXT bo 

783 kdx = = kdy=0slF k = kl THEN k = k2 ELSE k 
=kl 

784 GOTO 25000 

790 GOSUB 693: GOSUB 690 : I F ret=l THEN GO 

TO 375 ELSE GOTO 510 

830 REM >>>>> CHARACTER DEFINITIONS <<< 

350 SYMBOL 224,7,23,56,127,219,231,36,24 

360 SYMBOL 225 , 1 28 , 64 , 32 , 252 ,218, 229 , 38 , 

24 

370 SYMBOL 226,0,0,0,0,255,255,60,24 

SS0 SYMBOL 227 , 64 , 64 , 64 , 64 , 255 , 255 , 1 23,0 

390 SYMBOL 228,7,9,9,63,127,127,7,3 

900 SYMBOL 229 ,191,1 09 , 1 82 , 1 09 ,218,1 25 , 1 

71 ,95 

910 SYMBOL 230,255,118,235,182,47,254,93 

, 190 

920 SYMBOL 231,250,213,190,91,182,109,13 

930 SYMBOL 232,36,24,90,60,24,60,60,219 

940 SYMBOL 233 ,36,24, 24 , 60 , 90 , 1 89 ,126, 36 

950 SYMBOL 234,4,12,14,24,60,138,184,94 

960 SYMBOL 235,8,24,23,24,60,61,58,220 

970 SYMBOL 236,32,48,112,24,60,61,29,122 

980 SYMBOL 237 , 1 6 , 24 , 56 , 24 , 60 , 1 QS , 92 , 59 

990 SYMBOL 238 ,219, 60 , 60 , 24 , 60 , 90 , 24 , 36 

1 000 SYMBOL 239 , 36 ,126,1 39 , 90 , 60 , 24 , 24 , 3 

6 

1010 SYMBOL 240,0,0,67,172,240,192,255,0 

1020 SYMBOL 241,0,1,51,14,55,72,72,48 

1030 SYMBOL 242,96,200,244,12,154,164,22 

8 , 24 

1040 SYMBOL 243,255,255,255,255,255,255, 

255,255 

1050 SYMBOL 244,0,127,127,127,127,127,12 
7, 127 

1051 SYMBOL 245,170,85,170,85,170,85,170 
,85 

1060 addr=34999: GOSUB 29500 
1065 1 o ca=35020 : GOSUB 30500 
1070 RETURN 
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14990 REM >>>>> CHECK COLLISION <<<<< 

25000 I F ky=4 THEN 25030 

25005 IF ch-32 OR ch=244 OR ch=0 THEN 79 



25010 IF ch=229 OR ch=230 OR ch=231 THEN 
790 

25011 IF ch>231 AND ch<240 THEN 790 
2 5 1 5 G T O 5 5 

25030 IF kx=4 THEN 50000 ELSE IF kx=8 TH 
EN 50000 ELSE IF kx=12 THEN 50000 ELSE I 
F kx = 16 THEN 50000 

25031 cc-243:ox=kx = oy=ky sGOTO 50500 

39990 REM >>>>> SCORE , HIGH, SKI PPS <<<<< 

40000 PR I NT CHR* < 30 ) : PR INT sc; TAB < 7 > ; h i ; 

TAB(15) ;ka 

40005 IF s c >h i THEN h i = s c = GOTO 40000 

40010 RETURN 

49990 REN >>>>> KANGAROO IN BAY <<<<< 

50000 IF ch<>32 THEN 50500 ELSE k=234:G0 

SUB 690: sc=sc+5s kab=kab+l : FOR n=l TO 3s F 

OR so=l TO 200 STEP KZ>: SOUND l,so,l:NEXT 

so:NEXT n 
50005 IF kab=4 THEN 310 ELSE kx=10=ky=22 
:GOTO 790 

50490 REM >>> KANGAROO SQUASHED ! <<< 
50500 GOSUB 690 : SOUND 1 , 1 000 , 30 : SOUND 1 , 
3000 , 60 : GOSUB 693 : ka=ka- 1 : k x = 1 = ky=22 "• o x 
=10:oy=22 

50505 IF ka=-l THEN GOSUB 60000: GOTO 300 
50510 GOTO 370 



Now 'MERGE' the 'INKEYS' , the 
'CHAR CHECK' and the 'HIGH SCORE 1 
r outines - - • 
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Kinkey Dong 




All Action Climax 

This, the third arcade style game, is loosely inspired by a group of 
games in which the hero must jump over obstacles as he climbs up the 
ladder to get higher and higher through the screens. 

The evil monster that appears on each screen has in fact abducted 
the hero's girlfriend and locked her up. He now spends all of his time 
rolling large barrels down to crush the hero. 

There are three different screen layouts and if you are successful 
then the game continues through from the first's screen to give higher 
scores. 

Movement is by the now familiar cursor keys or your old friend the 
joystick. The little hero can be made to jump by pressing the copy key 
or the fire button. 

By following the instructions contained in the chapter on 
subroutines it is possible to merge this program with the 'High Score' 
subroutine which will provide a Kinkey Dong Hall of Fame. 
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60 , 66 , 1 89 , 1 65 , 1 65 , 1 39 , 



,66 
6 A - 



165,1 65 , 36 , 66 , 66 ,129, 



130 



1 R E M < < < < < < k l n k ey d o n g <> I S S I > > > > 

2 REM 

500 SYMBOL AFTER 228 

510 SYMBOL 241,66,126,66,66,66,126,66 
520 SYMBOL 242, 
60 

530 SYMBOL 243,: 
129 

540 SYMBOL 244 , 56 , 60 , 16 , 44 , 52 , 56 , 1 6 , 2S 
550 SYMBOL 245,23,60,8,52,44,28,8,56 
560 SYMBOL 246 , 1 36 , 1 36 , 
, 1 30 

600 MEMORY 34495 

750 GOSUB 22000 

1 G S U B 2 ® 

1 1 G S U B 1 9 

1500 IF lev=l THEN GOSUB 21100 

1510 IF lev=2 THEN GOSUB 21200 

1520 IF lev=3 THEN GOSUB 21300 

1540 GOSUB 21500 

1550 x=2:y^23 

1560 bx=l :foy=7:bd=l :be = 

1570 cx=20s cy=7= cd=--l = ce=0 

1580 IF lev = 3 THEN ta>(=7 : c;-: = 13 

1 B G S LI B 24 

1 3 1 G S 1 J B 2 5 

1820 GOSUB 24500 

1330 PEN 7 

1340 LOCATE x,y:PRINT om$ 

1 850 GOSUB 23000 

I860 IF y=l THEN GOTO 3000 

1870 LOCATE x,y 

1 3 3 G S U B 3 

1890 IF ch<>241 AND ch<>32 THEN GOTO 500 



1900 LOCATE x ,y+l 

1910 GOSUB 30000 

1920 IF ch=32 THEN y=y+i 

1940 PEN 7 

1950 LOCATE bx,by:PRINT ob* 

I960 LOCATE ex, cy: PRINT oc$ 

2000 GOTO 1800 

3000 lev=lev+l:IF lev=4 THEN lev=l 

3050 sc=sc+( lev*50> 

3060 LOCATE 7,25: PRINT sc 
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3070 GOTO 1500 

5000 SOUND 2 , 300 ,75,15, , , 30 

5010 1 i=l i-I s IF li=0 THEN GOTO 6000 

5020 FOR n=l TO li 

5030 LOCATE 17+n,25 

5040 NEXT n 

5050 PRINT " " ; 

5060 GOTO 1500 

6000 CLS 

6005 PRINT: PEN 3 

6010 PRINT " TOUGH MONKEYS ! " 

6020 PRINT " " 

6030 LOCATE 3, 10: PRINT "You scored ";sc; 

6040 LOCATE 5,25: PRINT "Press Any Key" 

6050 a*=INKEY*:lF a*= ,,n THEN GOTO 6050 

6060 SOUND 1 , 250 , 25 , 15 

6. 7 G T 1 

9980 REM >>>>>>>>>> monster <<<<<<<<<< 

10000 SYMBOL 223,0,0,16,44,62,28,56,112 

10010 SYMBOL 229,129,66,126,90,126,106,8 

6 , 60 

1 0020 SYMBOL 230 , , , 8 , 52 , 1 24 , 56 , 28 , 1 4 

10030 SYMBOL 231,112,121,127,63,31,7,1,1 

10040 SYMBOL 232,60,255,255,255,231,215, 

235,213 

1 0050 SYMBOL 233 ,14,1 58 , 254 , 252 , 248 , 224 , 

128, 123 

10060 SYMBOL 234,1,3,15,15,31,63,62,62 

10070 SYMBOL 235,171,213,235,215,235,255 

, 60 , 

10030 SYMBOL 236,128,192,240,240,248,252 

,124, 124 

10090 SYMBOL 237,30,15,15,3,59,127,127,5 

7 

10100 SYMBOL 238,0,0,0,0,129,195,195,129 

10110 SYMBOL 239,120,240,240,192,220,254 

,254,156 

10120 PEN 15 

10130 LOCATE 2,l:PRINT CHR*<228> ; CHR*<22 

9> ;CHR$<230) 

10140 LOCATE 2,2: PRINT CHR*(231 > ;CHR*(23 

2} ;CHR*<233) 

1 1 50 L OC AT E 2,3: PR I NT CHR* < 234 ) ; CHR* < 23 

5} ;CHR*<236> 

101 60 L OCAT E 2,4: PR I NT CHR* ( 237 > ; CHR$ ( 23 
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8) ;CHR*<;239) 


10200 


RETURN 


18980 


REM > > > > > > > ;> start game < 


19000 


sc=0: 1 i=3 


19010 


lev=l 


19020 


1$=CHR*<241> 


19030 


b*=CHR*<242> :m*==CHR*<244> 


19100 


RETURN 


19980 


REM > > > > > > > > set scree n < 


20000 


RESTORE 20000 


20010 


FOR n=0 TO 15 


20020 


READ a 


20030 


INK n,a 


20040 


NEXT n 


20050 


BORDER 0:PAPER 0:PEN 1 : MO 


20100 


RETURN 


20200 


DATA 0,18,6,24,20,7,15,2 







20210 DATA 22,12,17,9,26,3,22,13 

209S€) REM > > > > > > > > > > screen < < < < < < < < < < 

2 1 000 p *=STR I NG$ < 20 , 243 > 

21010 CLS:pe=l 

21020 FOR n=S TO 24 STEP 4 

21025 PEN pe 

2 1 030 L OC AT E 1 , n = PR I NT p $ 

21040 pe=pe+l 

21070 NEXT n 

21080 RETURN 

21095 REM * * * one * * * 

211 00 GOSUB 2 1 000 

21120 FOR n=3 TO 20 STEP 4 

21130 po=RND<l>*17+2 

21140 IF n<24 THEN LOCATE po,r.:PRINT " " 

21150 lpo=RND<l>*17+2:lF lpo=po THEN GOT 

21150 

21160 IF n<24 THEN po=lpo : GOSUB 21700 

21170 PEN 10 

21180 NEXT n 

21 190 RETURN 

21195 REM * * * two * * * 

2 1 2 G S U B 2 1 

21205 PEN 12 

21210 FOR n=13 TO 24 

21220 LOCATE 7,r»:PRINT STRING$<8 , 207 } 

21230 NEXT n 

21240 LOCATE 7,19:PRINT STRING*<8 , 32) 
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21250 LOCATE 7,23:PRINT STRING*<3 , 32) 

21260 LOCATE 7, 15: PRINT STRING*<3 , 32) 

21270 p o =8 : n =8 : GOSUB 2 1 700 : p o = 1 S : n = 1 2 : GO 

SUB 21700 

21275 po=3:n=i6:G0SUB 21700 : po = 18 : ri=20 : G 

OSUB 21700 

21280 PEN 10 

21292 RETURN 

21295 REM * * * three * * * 

2 1 3 G O S LI B 2 1 

21310 LOCATE 1,8= PR I NT STRING*<5 , 32) 

21320 LOCATE 16,8: PRINT STRING* (5 ,32) 

21330 LOCATE 1,12:PRINT STRING*<4 , 32) 

21340 LOCATE 17, 12: PR I NT STRING* (4 ,32) 

21350 LOCATE 1,16: PRINT STR ING*<2 , 32) 

21360 LOCATE 19, 16: PRINT STRING* (2 , 32) 

21370 po=7:n=12:G0SUB 21700 

2 1 380 p o = 1 4 : n = 1 2 : GOSUB 2 1 700 

21390 po = 2:r.=20: GOSUB 21700 

2 1 400 p o = 1 9 : n =20 : GOSUB 2 1 700 

21410 po=9:n=16: GOSUB 21700 

2 1 420 p o = 1 2 : n = 1 6 : GOSUB 2 1 700 

21430 po=10:n=8: GOSUB 21700 

2 1 440 p o= 1 1 : n =8 : GOSUB 2 1 700 

21450 LOCATE 6,20:PRINT " M : LOCATE 15,20 

: PRINT " " 

21455 PEN 10 

21430 RETURN 

21490 REM # * * top * * * 

21500 LOCATE 1 ,25 

21505 PEN 10 

21510 PRINT "SCORE:" 5 sc 

21520 LOCATE 16,25 

21525 PEN 6 

21530 FOR n=l TO li 

21540 PRINT CHR*<;248); 

21550 NEXT n 

21555 PEN 7 

21560 LOCATE 15,6: PRINT STR ING*(5 , 243) 

21570 PLOT 0,325: DRAW 150,325 

21580 po=18:n=2: GOSUB 21700 

21650 GOSUB 10000 

21680 RETURN 

21690 REM * * * ladder * * * 

21700 FOR z=0 TO 3 
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21705 
21710 
21720 
21730 
21740 
21980 
22000 
22010 
22150 
22930 
23000 
23050 
(245) 
23060 
% C 244 
23070 

00 

230S0 

00 

23090 

23250 

23300 

23305 

23310 

23320 

23350 

23360 

23370 

23380 

23400 

23405 

23410 

23420 

23500 

= 1 

23510 

23520 

23530 

23540 

236 1 

23650 

23660 

23670 

23680 

23690 



PEN 7 

LOCATE po ,ri + s 

PRINT 1* 

NEXT 2 

RETURN 

REM > > > > > > > > i n i t i a 1 i 2 e < < < < < < < < < 

a d d r - 3 4 9 9 9 : G O S U B 2 9 5 

1 o ca=35024 : GOSUB 30500 

RETURN 

R E li > > > > > > > > > > move < < < < < < < < < < < < < 

GOSUB 29000 

IF ie=l AND x>2 THEN x=x-l : m*=CHR* 



IF ri = l AND x<19 THEN 



■i+1 :m*=CHR 



') 



IF up=l THEN m*=CHR*<;246>:G0TG 233 

IF do=l THEN m*=CHR*<24fe>:GGT0 234 

IF fi=l THEN GOTO 23500 

RETURN 

LOCATE x,y-l 

GOSUB 30000 

IF ch<>241 THEN GOTO 23350 

y=y-l :GOTO 23080 

LOCATE x ,y+l 

GOSUB 30000 

IF ch=241 THEN GOTO 23320 

GOTO 23080 

LOCATE x,y+l 

GOSUB 30000 

IF ch<>241 THEN GOTO 23090 

y=y~l :GOTO 23090 

IF m*=CHR*<245> THEN >;d=-l ELSE xd 

IF x<2 OR x>19 THEN xd=0 

IF m*=CHR*<246> THEN >:d=G> 

LOCATE bx, by: PRINT ob* 

LOCATE cx,cy:PRINT oc$ 

RESTORE 23750 

FOR n=l TO 6 

READ a 

y=y+a: GOSUB 23S50 

IF plat=l THEN n=li 

NEXT n 
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23700 


GOSUB 24500 




23710 


RETURN 




23750 


DATA -1,-1,0,0,1,1 




23850 


x~x+xd:plat~0 




23860 


LOCATE >f,y+l 




23870 


GO SUB 30000 




23880 


IF ch<>32 THEN p lat= 1 : RETURN 




23890 


IF x<2 THEN x=2 




23895 


IF x>19 THEN x = 19 




23900 


GO BUB 24000 




23910 


GOSUB 24500 




23920 


SOUND 2, 100,2, 15 




23925 


PEN 7 




23930 


LOCATE bx, by: PR I NT ob* 




23935 


LOCATE ex, cy: PR I NT oc$ 




23940 


GOSUB 25000 




23950 


LOCATE x,y: PRINT om$ 




23960 


RETURN 




23980 


REM > > > > > > > > > > p rint < < < < < < < < < < • 




23995 


REN * * * man * * * 




24000 


LOCATE x , y *• GOSUB 30000 




24010 


om$=CHR$< ch> 




24020 


PEN 2 




24050 


PRINT m$ 




24100 


RETURN 




24490 


REN -* * * barrels * * * 




24500 


L OC AT E b x , b y : GOSUB 30000 




24510 


ob*=CHR*(ch) 




24520 


LOCATE ex , cy : GOSUB 30000 




24530 


oc*=CHR*<ch> 




24540 


PEN 3 




24550 


LOCATE bx,by 




24560 


PRINT ta* 




24570 


LOCATE ex , cy 




24580 


PRINT b* 




24600 


RETURN 




24980 


REN > > > > > > > > > > b a r- rel < < < < < < < < < - : 




25000 


a=RND< 1 >*10 




25005 


LOCATE bx,by+l 




25010 


GOSUB 30000 




25020 
= 1 

25030 


IF ch=32 OR ch=241 AND a>5 THEN 


be 


IF ch=243 THEN be=Q 




25040 


by=by+be:lF be=# THEN bx=fox+bd 





•~' »=: r,\ ^ 



: »050 LOCATE ex , cy+1 
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2 fS 0) f-> G O S U B 3 & 

25070 IF ch=32 OR ch=241 AND a>5 THEN ce 

= 1 

25080 IF ch=243 THEN ce=0 

25090 cy=cy+ce:IF ce-0 THEN cx=cx + cd 

25100 IF bx<2 THEN bd=l 

25105 IF hx>19 THEN bd=-l 

25110 IF cx<2 THEN cd=l 

25115 IF ck>19 THEN cd=-l 

25130 IF <bx<2 OR hx>19> AND by=23 THEN 

bx=l :bd=l :by=7= IF lev=3 THEN bx = 7 

25140 IF <cx<2 OR cx>19> AND cy=23 THEN 

cx=2®scd=-l:cy=7: IF lev=3 THEN cx=13 

25250 RETURN 



Now 'MERGE 1 the 'INKEYS' and the 
'CHAR CHECK' routines. - - 
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Word Splash 




Spell or Swim 

This game is a more humane, more fun version of the well known 
hangman game. If the player cannot guess the word in time, then all 
the wrong letters push a character into the water. 

Words can be up to eight letters long but should not contain 
hyphens. The listing has about 60 words already included. More 
words may be added or the existing ones changed. 

If a letter is guessed, it appears at each correct position in the word. 
If it is not right then the poor victim is pushed one space along. 
Should the word be completed in time then the little figure pushes all 
the wrong letters back and a new mystery word is offered. 

The word is not shown if it is not guessed and since words are 
randomly selected it may be possible to have the same word again 
later. 

The program is very entertaining, educational and can be 
surprisingly addictive! 
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1 R E M < < < < < < word splash < > I S S I > > > > 

2 REM 

500 RANDOMIZE TIME 
1000 GOSUB 21000 
1500 RANDOMIZE TIME 

1510 w=int<;rnd<i;>*60;> + i 

1520 w*=d*<w> 

153 G O SUB 2 

1 6 G S U B 24 

1610 flag=0 

1650 IF t$=w$ THEN GOTO 3000 

1660 IF LEN<g*)=10 THEN GOTO 2000 

1670 GOTO 1600 

1990 REM * * * lose * * * 

2 G S U B 2 3 

2 10 RESTORE 2 

2020 FOR n=l TO 10 

2030 READ a,b 

2040 SOUND 2,a,b , 15 

2050 NEXT n 

2060 DATA 253 , 20 , 234 , 20 ,319, 50 , 234 , 20 

2070 DATA 319, 20 , 353 , 50 , 3 1 9 , 20 , 353 , 20 

20S0 DATA 379,50,353,50 

2400 CL3 

2410 LOCATE 4,3: PRINT "TOUGH LUCK !" 

2 5 G T 3 5 

2990 REM # * * win * * * 

3000 RESTORE 3000 

3010 FOR n=l TO 16 

3020 READ &,h 

3030 SOUND 2 , a , b , 1 5 

3040 NEXT n 

3050 DATA 319,20,234,20,253,20,239,30 

3060 DATA 319,20,234,20,253,20,239,80 

3070 DATA 319, 20 , 234 , 20 , 253 , 20 , 239 , 40 

3030 DATA 234 , 40 , 353 , 40 , 234 , 40 , 3 1 9 , 80 

3220 IF g$= ,,n THEN GOTO 3430 

3230 FOR n = LEN<cf*> TO 1 STEP-1 

3240 g$ = RIGHT*<;g*,n-l ) 

3260 GOSUB 241 10: PRINT " " 

3270 SOUND 1 , n*20 ,2,15 

3 2 8 F O R p = 1 T 5 
3290 NEXT p 

3300 NEXT n 
3430 CLS 



Word Splash 155 



3490 LOCATE 2,3: PRINT "CONGRATULATIONS 

3500 LOCATE 3,20: PRINT "Press Any Key" 

3520 a*=INKEY* 

3530 IF a*="" THEN GOTO 3520 

3 5 4 G T 1 5 

1 9 9 8 REM > > > > > > > > > > screen < < < < < < < < < < < 

20000 

TO 15 



RESTORE 
FOR n=0 
READ a 
INK r. ,a 

NEXT r. 
DATA 



V(/)(/)(/)(/) 
20010 

20020 
20030 
20040 
20050 
20060 

2 1 
201 10 

20120 

+ a$ + a$+a$+-a$ 
20130 PEN 6 
20140 LOCATE 
20150 PEN 4 
20160 LOCATE 
CHR*(223> 
20170 LOCATE 



20,2,13,6,24,26,0 
DATA , , , , , , , 
BORDER 0: PAPER 0:PEN l:MODE 
LOCATE 5,1: PRINT "WORD SPLASH" 
a*=CHR* ( 1 96 > +CHR* ( 1 9S > : a$=a$+a*+a$ 

4,2:PRINT a* 

1 , 1 1 : PR I NT STR I NG$ (10, 207 > •+■ 



10, 12: PRINT CHR*<221> 
20180 LOCATE 11,12:PRINT CHR*(207) 
20190 LOCATE 12, 12: PRINT CHR*<;223> 
20210 FOR n=l TO 10 
20220 LOCATE 12,14+n 
20230 PAPER 2: PEN 3 
20235 IF r.<3 THEN PAPER 0) 

PRINT CHR*<211>;STRING*<6,32>;CHR* 



^0240 

(209) ; 

20250 NEXT n 

20260 LOCATE 12,25: PRINT 

G* < 6 , 2 1 > ; CHR* ( 204 ) ; 

2 3 RESTORE 2 3 

FOR n = 3 TO 14 

PAPER 0:PEN n 

READ *,h 

LOCATE a,b 

PRINT CHR*<249) ; 

NEXT n 

DATA 11,10,12,11,1 



CHR$<205> ; STR IN 



20310 
20320 
20330 
20340 
20350 
20360 
20370 
20380 
20400 



,,12,14,13 



DATA 15,14,16,15,16,16 

PLOT 510, 150, 7: DRAW 560,160 
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20410 


PLOT 478, 150: DRAW 420,160 


20420 


PLOT 510, 155: DRAW 540,180 


20430 


PLOT 478 ,155: DRAW 448 , 1 80 


20440 


PLOT 520, 147: DRAW 590,150 


20450 


PLOT 468 , 1 47 : DRAW 398 , 1 50 


20490 


PEN 5 


20500 


LOCATE 1,13: PR INT "WORD:-" 


20510 


LOCATE 2,17:t*=" " :g*= ,,n 


20520 


FOR n=i TO LEN<>$) 


20530 


PRINT "-" 5 : t$=t$+ M " 


20540 


NEXT n 


20550 


PEN 3 


20560 


LOCATE 1,10:PRINT CHR$<248) 


20580 


LOCATE 2,20: PRINT "GUESS ?" 


20750 


RETURN 


209S0 


REM > > > > ::=■ > > > > initialize < < < < < 


2 1 000 


RESTORE 30000 


21010 


DIM d$<60> 


21020 


FOR n=l TO 60 


21030 


READ d$OV> 


21040 


NEXT n 


21250 


RETURN 


22980 


REM > > > > > > > > > > > splash 1 < < < < < < 


23000 


LOCATE 11, 10: PRINT " " 


23010 


FOR n=8 TO 14 


23020 


INK n ,24 


23030 


SOUND 2 , 300-n* 1 , 25 , 1 5 


23040 


FOR q=l TO 250 


23050 


NEXT q 


23060 


INK n,0 


23070 


NEXT n: INK 14,24 


23080 


I NK 7,26: SOUND 2 , 300 ,50,15,0,0 


23090 


FOR n=l TO 250 


23100 


NEXT n 


23110 


INK 7,0: INK 14,0 


23250 


RETURN 


23980 


REM > > > > > > > > > > > i n p u t < < < < < < < < 


24000 


a*=INKEY*sa* = UPPER*<;a*> 


24010 



24020 


IF a$<"A" OR a$> M Z" THEN GOTO 


SOUND 2,200, 10, 15 


24030 


flag=0:PEN 4 


24040 


FOR n=l TO LEN(w$) 


24050 


IF MID*(w$,n,l)=a$ THEN LOCATE 


, 16: PRINT a$:MID$(t$,n, 1 )=a*: f lag=l 



,31 



2400 



1+n 
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24060 NEXT n 

24070 IF flag=0 THEN GOTO 24100 

24080 SOUND 2 , 1 50 ,50,15 

24090 RETURN 

24100 g*=a*+g* 

24110 LOCATE 1,10: PEN 4 

24120 IF LEN<g*>/2=INT<LEN<g$)/2> THEN a 

=250 ELSE a=251 

24130 PEN 3: PR I NT g*;CHR*<a> ; 

24140 RETURN 

29980 REM >>>>>>>>>>>> data <<<<<<<<<<< 

30000 DATA ACUTE, AGILE, BROKE, CANDY, COUGH 

, DRYLY , GNOME , M I STY , NYMPH , PYGMY 

30010 DATA BARLEY, BODKIN, CEPTIC, DEVOUR, E 

IGHTY, EXOTIC, FLINCH, GLORIA, HYMN, LYRICS 

30020 DATA METHYL, SPYING, SYRUP, YOGHURT, V 

I SUAL , WOBBLE , ANCHOVY , RE L AX , RHYTHM , RHUBAR 

B 

30030 DATA SKETCH, FASCIST, BORING, FATIGUE 

, FROWN , TRUANT , L EMM I NG , Z I NC , GLAMOUR , HYDRA 

TED 

30040 DATA KETCHUP , MYST I C , NO I SY , OCTOPUS , 

SQUID, RAMBLER, SATCHEL, SEXTANT, YULETIDE,S 

WINDLE 

30050 DATA P L A Y E R , DOCK E R , D E ST I NY , F UTURE , 

LENTIL, FOREIGN, LOGICAL, WINTER, THIRST, NAI 

VE 



23 
Sum Fun 




Ten out of Ten 

This single program can offer questions for 'primary, 'junior 1 and 
'senior' levels (that is everyone). The question can be of any one type, 
selected from plus, minus, multiply and divide. The questions and 
answers are drawn to a blackboard to help make the presentation 
attractive. 

Selecting the primary level will set up problems which involve 
counting two sets of 'little men' to produce a total. The junior level 
provides options for the four types of arithmetic and produces 
questions which have whole number answers. It should be possible 
for most adults and older children to work these out mentally. 

The senior level would require a very strong mental arithmetic 
ability and is designed to set problems which can be worked out using 
pencil and paper or even a calculator. 

The answers are required to be typed in and then sent to the 
computer using the 'Enter' key. This means that mistyped answers 
can be corrected if spotted before the 'Enter' key is pressed. The 
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program will allow up to two wrong trys before revealing the correct 
answer. 

At the end of ten questions the computer will print up a 'report' 
showing the number of correct answers and a percentage score. 

After "RENUM 40000,5" the game Rainbow Breakout may be 
merged with this program to provide a fun reward for getting ten out 
of ten. 



1 REM < < < < < < < < sum f " u n 

2 REM 

1200 GOSUB 20000 

1300 LOCATE #1 , 

1310 LOCATE #1, 

1320 LOCATE #1 , 

1330 a*=INKEY* 

1340 IF a*<" 1" OR a*> 

SOUND 2,300,50,1 

lev=VAL<;a*> 

30000 



I SSI 



2,3:PRINT 


#1 , "DPrimary 


2,5: PRINT 


#1 , "2>Juriior n 


2,7: PRINT 


141 , "3>Benior" 



'3 M THEN GOTO 1330 



scree n 



20000 

TO 7 



1350 
1360 

1390 GOTO 
19980 REM >>> 
20000 RESTORE 
20010 FOR n =0 
20020 READ a 
20030 INK n , a 
20040 NEXT n 

20050 DATA 2,0, 26 ,24,6,13, 7 , 1 3 
20060 BORDER 2= PAPER ©:PEN 6: MODE 

5 STEP 4 



:*' S <"* -■/ •:'' 



iDRAWR 30,~330 



2 70 F R n =32 T 

20080 PLOT n , 330 , 6 

20090 NEXT n 

20100 FOR n=320 TO 305 STEP ~4 

20110 PLOT n,3S0,6:DRAWR -80,-: 

20120 NEXT n 

20130 WINDOW #1,6,15,6,17 

20140 WINDOW #2,8,13,14,14 

20150 PAPER #1,1= PEN #1,2:CLS 

20160 PAPER #2,1 :PEN 

20250 RETURN 

2 9 8 REM > > > > > > > > > > 

INPUT #2,g* 

If g$=»" THEN GOTO 21000 

cor=l 

IF \iAL(g$)<>ans THEN cor=0 

21040 RETURN 

21490 REM * * * guess 



#2,2:CLS 
input <<* 



#1 

#2 



21000 
2101 

21020 
21030 



* * 
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21500 FOR g=l TO 2 

21510 GOSUB 21000 

21520 IF cor=l THEN GOTO 21560 

21530 SOUND 2,500,40, 15: SOUND 2,750,50,1 



21540 


NEXT g 


21542 


RESTORE 21542 


21544 


FOR n=l TO 9 


21546 


READ a: SOUND 2, a, 20, 15 


2 1 548 


NEXT n 


21550 


DATA 200 , 250 , 300 , 250 , 300 , 350 , 300 , 3 


50 , 400 


21552 


SOUND 2,600,75, 15 


21555 


GOTO 21590 


21560 


SOUND 2 , 600 , 30 ,15: SOUND 2 , 400 , 30 , 1 


5 : SOUND 2 , 200 , 30 , 1 5 


21570 


g=2 


2 1580 


tot=tot+l 


21590 


CLS #1 :CLS #2 


2 1 600 


RETURN 


21980 


R E M > > > > > > > > > > > type < < < < < < < < < < < < 


22000 


CLS #1 :CLS #2 


22010 


LOCATE #1,2,2:PRINT #1,"1> ' + '" 


22020 


LOCATE #1,2,4:PRINT #1,"2> ' - '" 


22030 


LOCATE #1,2,6:PRINT #1,"3> ' x ' " 


22040 


LOCATE #1,2,3:PRINT #1,"4> '"jCHR* 


<172) ; 


> 


22050 


a*=INKEY* 


22060 



22070 


IF a$<" 1" OR a$>"4" THEN GOTO 2205 


z=VAL(a*> 


22080 


DEF FN sl.t^a^-b:s$= ,, + ,, 


22090 


IF z = 2 THEN DEF FN sum=a»b : s*= ,, - n 


22100 


IF z=3 THEN DEF FN sum=a*b : s*=" x" 


22110 


IF z=4 THEN DEF FN sum=a/fo : s*=CHR* 


<172>; 


: div=l 


22200 


RETURN 


22980 


REM > > > > > > > > :> > > i n i t < < < < < < < < < < < < 


23000 


1 im=8 i di v=0 


230 1 


IF lev=2 THEN 1 im== 12 = GOSUB 22000 


23020 


IP iev=3 THEN lim=25: GOSUB 22000 


23030 


CLS #1 :CLS #2 


23040 


tot=0 


23100 


RETURN 


23980 


REN > > > > > > > > > n ufflb era < < < < < < < < < < < 
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24000 RANDOMIZE TI 
24010 a=INT<RND<:i> 
24020 b=INT<RND(l> 
24030 IF div=l THE 
24035 IF lev=2 THE 
24040 CLS #1 :CLS # 
24050 IF lev=l THE 
24060 LOCATE #1,1, 
24070 ans=FN 
24100 RETURN 
24150 LOCATE 
5<&>: LOCATE #1,-, 
24160 LOCATE #1 , 



ME 

* 1 i m ) + 1 

* 1 i m > + 1 
N a==a*b 
N div=0 

N GOTO 24150 
3:PRINT #1 ,a;s*;b 



sum 



50 > 

24190 

24200 

29980 

30000 
30010 

30040 
30050 

30100 

30150 

30160 

30170 

30 1 80 

30190 

30200 

"%" 

30250 

30260 

30270 

30280 

30290 

30300 

30310 

40000 



#1,2,3:PRINT #1 , STRINGS a , 2 
PRINT #1 , " + ■' 
7:PRINT #1 ,STRING$<b,2 



ans=a+b 
RETURN 

REM >>>>>>>> 
GO SUB 23000 
FOR p=l TO 1 
GOSUB 24000 
GOSUB 21500 
NEXT p 

CLS #1 :CLS # 
PRINT #1, " 
PRINT #1 ," - 
LOCATE #1,2, 
LOCATE #1,2, 
LOCATE #1,3, 



main loop 







REPORT." 

it 

5:PRINT #l,tot; "were" 
7:PRINT ttl/'correct." 
9:PRINT #1 , tot/10*100 



LOCATE 4,25: PRINT "Press any Key" 

a*=INKEY* 

IF a*= M " THEf 

LOCATE 4, 

CLS #1 :CLB #: 

GOSUB 40000 

GOTO 1300 

RETURN 



IN GOTO 30260 
: PRINT SPC<13> 



i 
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Today England 




Tomorrow the World 

This is a self-contained geographic quiz based upon the map of Great 
Britain. The game is very straightforward and consists of questions 
which relate to key towns or cities, and the county to which they 
belong. Options are given to guess the county, the town or both. A 
point is plotted on the map to indicate the location of the town or city. 

The central core of the program could be developed to produce 
either a more detailed map or as the heading suggests, the world 
could be plotted next! 

The Picture Builder program later in this book will be found 
helpful to identify the points to be plotted. The map used in this 
program was produced by taping an outline of Great Britain onto the 
screen. This was on a clear acetate sheet, so it was possible to move 
the cursor to each point, note the x,y co-ordinates and then move to 
the next point. The result can be as detailed as the mode selected and 
your patience will allow. 

Another way to develop this program would be to extend the data 
to include more or all counties and the county towns. In fact you 
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could find that the research of the facts to put into the listing is even 
more educational then the program itself! 

10 REM <<<< TODAY ENGLAND , >'. 

11 REM << TOMMORROW THE WORLD 

15 REM <<<<< ANDY /JIM 

16 REM 

20 GO SUB 1500 

30 MODE l: LOCATE 15,1: PRINT "Today Engla 

net" 

35 INK 0,0: BORDER 

40 SC-0 

50 LOCATE 12,3: PRINT "Tommorrow the Worl 

d" 

60 LOCATE 2,6: PRINT "Choose option:" 

70 LOCATE 10,8: PRINT " 1 . . - -Guess c our. tie 

s" 

30 LOCATE 10,9: PRINT "2- - - -Guess cities" 

90 LOCATE 10, 10: PRINT "3- - - -Guess both" 

100 a$=INKEY* 

110 IF a*="l" THEN op=l:GGTO 150 

120 IF a*="2" THEN ap=2:G0T0 150 

130 IF a*= n 3" THEN op=3:GGTO 150 

140 GOTO 100 

150 GO SUB 900 

160 RESTORE 1270 

165 IF op = 3 THEN 630 

210 REM >>> GUESS CITY / COUNTY <<<<< 

220 FOR c=l TO 16 

230 READ n*,>i,y,co* 

240 PLOT x,y,3 

250 IF op=l THEN LOCATE 25,5:PRINT "City 

is " 
260 IF op=l THEN LOCATE 21,7:PRINT in* 
270 IF op=2 THEN LOCATE 25,5:PRINT "Coun 
ty is " 

280 IF op=2 THEN LOCATE 21,7:PRINT co$ 
290 tr=3 

300 IF op=l THEN LOCATE 25,9: PRINT "Coun 
ty is" ELSE IF op=2 THEN LOCATE 25,9 sPRI 
NT "City is" 
310 IF op=l THEN INPUT #3, c*: c*=UPPER*< c 

*> 

320 IF op=2 THEN INPUT #3, c i*: c i*=UPPER* 

(ci$) 
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330 IF op=l AND c$=co$ THEN 420 

340 IF op=2 AND ci*=n* THEN 420 

350 tr=tr-l : LOCATE 26,20: PRINT M Wror.g";t 

r ; " tries" 

360 LOCATE 30,22: PRINT "left." 

370 GOSUB 1500 

380 LOCATE 26,20:PRINT SPC(14) 

390 LOCATE 30,22: PRINT SPC<6> 

400 IF tr=0 THEN 5000 

410 GOTO 300 

420 GOSUB 1440 

430 LOCATE 26, 10: PRINT "Correct-" 

440 GOSUB 1500 

450 sc=sc+tr 

460 PLOT >:,y,0 

470 PRINT #3 

4S0 PLOT 0,0,1 

490 GOSUB 1440 

500 NEXT c 

510 CLS:PRINT:PRINT " You scored" ;sc 

;" points." 

520 PRINT: PRINT: PRINT" Press 'SPACE 1 

to start again" 

530 PR I NT : PR I NT " o r ' Q ' t o q u i t 

ii 

540 a*=INKEY*:a*==UPPER*<a*> 

550 IF a*=" "THEN 30 

560 IF a*= n Q" THEN END 

570 GOTO 540 

610 REN >>>>>> GUESS CITY <% COUNTY <<< 

620 REM 

630 FOR c=l TO 16 

640 READ n*,x,y,c*:PLOT x,y,3 

650 LOCATE 25,9:PRINT "City is" 

660 tr=3 

670 INPUT #3, ci* 

680 IF ci*=n$ THEN GOSUB 1440: LOCATE 25, 

10: PRINT "Correct" : GOSUB 1500: sc=sc+tv:G 

OSUB 1440: GOTO 750 

690 tr-tr-1 

700 LOCATE 26, 20: PRINT " Wrong" ; tr ; " trie 

5" 

710 LOCATE 30,22:PRINT "left-" 

720 GOSUB 1500 

725 LOCATE 26,20:PRINT SPC(14> 
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726 
727 
730 
740 

750 
760 
770 
7S0 



LOCATE 30,22 s PRINT SPC(6> 

IF tr=0 THEN 730 ELBE GOTO 670 



LOCATE 25, l: PRINT "CITY IS" 

LOCATE 20,3: PRINT n$ 

LOCATE 25,9: PRINT "County 

tr=3 

INPUT #3,co$ 

IF co$-c$ THEN GOSUB 

10: PRINT "Correct" : GOSUB 

OSUB 1440: GOTO 341 

790 tr=tr— 1 



1 s 



1440: LOCATE 

1500S 5C-5C + 



t r : G 



800 

s" 
8 1 

820 
321 



50 



LOCATE 26, 20: PRINT 



"Wrong" ; tr; " trie 



"left 



#40 
841 
842 
843 
345 
890 

900 

9 1 
920 
930 
940 
950 
960 
970 
930 
990 

1 000 
1 1 
1020 
1030 
1040 
1050 
1 060 
1070 



LOCATE 30,22: PRINT 

GOSUB 1500 

LOCATE 26,20:PRINT BPC(14> 

LOCATE 30,22: PRINT SPC(6> 

IF tr=0 THEN 330 ELSE GOTO 770 

LOCATE 25, 9: PRINT " 

PRINT #3 

LOCATE 25,6: PRINT "COUNTY IS" 

LOCATE 20,8: PRINT c$ 

GOSUB 1500 

GOSUB 1440 

PLOT x,y,0 

NEXT c:GOTO 5 

REN >>>>>>>>> 

MODE l: WINDOW 

PLOT 0,0,1 

INK 3,0,26 

RESTORE 1130 

FOR a=l TO 59 

READ x,y 

IF a-1 THEN PLOT x,y ELS 

NEXT a 

FOR a=l TO 17 

READ x,y 

IF a-1 THEN PLOT x,y ELSE DRAW x,y 

NEXT a 

FOR a=l TO 4: READ x,y 



10 

DRAW MAP <<<<<< 
#3 , 20 , 40 ,11,11 



IF a=l THEN PLOT x,y ELSE DRAW x,y 

NEXT a 

FOR a=l TO 4: READ x,y 

IF a=l THEN PLOT x,Y ELSE DRAW x,y 

NEXT a 
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10S0 


FOR a=l TO 5: READ x,y 


1090 


IF a=l THEN PLOT x,y ELSE 


1 1 00 


NEXT a 


1110 


RETURN 


1115 


REM >>>> NAPS DATA <<<< 



DRAW 



1120 REN Mainland Britain 

1130 DATA 192,371,223,377,234,359,210,32 

9 , 234 , 34 1 , 253 , 335 , 253 , Z<bZ , 223 , 237 , 252 , 27 

1140 DATA 223,269,252,263,270,245,276,21 

5,306,203,313, 173,294, 179,324, 149,313, 13 

7,354, 143,360, 1 13 

1150 DATA 324,33,354,77,330,53,232,61,25 

3,47,234,53,216,35, 174 , 23 , 1 65 , 24 , 2 10 , 7 1 , 

246 ,71, 258 , 95 , 234 , 33 

1160 DATA 204,95,193,107,216,113,216,137 

, 198, 131 ,216, 155,252, 155,240, 173,246, 191 

,234, 191 ,222,209 

1170 DATA 234,227,204,215,192,227,204,24 

5 , 1 93 , 263 , 1 80 , 239 , 1 68 , 245 , 1 30 , 237 , 162, 28 

1 , 180,317, 168,341 , 192,347, 130,365, 198,35 

9,192,371 

1180 REN Ireland 

1190 DATA 142,241,172,229,184,199,172,13 

7 , 1 60 ,137,172,1 39 , 1 60 , 1 09 ,113,1 03 , 82 , 85 , 

58 , 30 , 80 , 1 30 , 1 00 , 1 57 , 70 , 1 63 , 82 , 1 99 , 1 1 Q> , 2 

00, 120,240, 142,241 

1200 REN Isle of Nan 

1210 DATA 192,181,204,131,210,199,192,13 

1 

1220 REM Angl esey 

1230 DATA 206,157,206,151,210,160,206,15 

7 

1240 REN Isle of Wight 

1250 DATA 286,55,230,49,292,43,298,49,28 

6 , 55 

1260 REN cities 

1270 DATA MANCHESTER, 258, 171 , "GREATER MA 

NCHESTER" 

1280 DATA CHESTER, 252, 149, "CHESHIRE" 

1290 DATA LEEDS, 232, 175, "YORKSHIRE" 

1300 DATA HULL ,308, 181 , "HUNBERSIDE" 

1310 DATA LIVERPOOL, 250, 163, "NERSEYSIDE" 

1320 DATA BIRMINGHAM, 274, 1 19, "WEST MIDLA 

NDS" 
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i 3 3 
1340 
1350 
1360 
IRE" 
1370 
1 380 
1390 

1400 

AND" 
1 4 1 
1420 
1430 
1440 
1450 
1460 
1465 
1470 
1480 
1435 
1436 
1490 

1500 

4990 

5000 

5005 
50 1 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 
5060 
5065 



DATA LONDON, 318 



5 ''GREATER LONDON" 



DATA BRISTOL ,260,83, "AVON" 

DATA CARD IFF, 244, 95, "MID GLAMORGAN" 

DATA CAMBRIDGE, 322, 115, "CAMBRI DGESH 



>61 , "STRATHCLYDE" 



20, 


1 1 


: PR I NT 


' 5* 


20, 


7 : 


PRINT 


S$ 


20, 


3 ■ 


PRINT 


s$ 


20, 


£! ■ 


PRINT 


5$ 



DATA GLASGOW, 216 

DATA EDINBURGH, 238, 261 , "LOTHIAN" 

DATA ABERDE EN , 250 , 3 15," GRAMP I AN " 

DATA NEWCASTLE, 266, 223," NORTHUMBERL 

DATA BELFAST, 170,200, "ARMAGH" 

DATA DUBLIN, 160, 160, "DUBLIN" 

REM > CLEAR RIGHT SIDE OF SCREEN < 

FOR q=l TO 24 

LOCATE 25, q: PRINT SPC(15> 

NEXT q 

s*=STRING*(6,32> 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

RETURN 

FOR t=l TO 3000: NEXT t: RETURN 

REM <<<<< NO TRIES LEFT >>>>>: 

GOSUB 1440 

LOCATE 25,3 

PRINT "CITY IS " 

LOCATE 21,5 

PRINT n* 

LOCATE 25,10 

PRINT "COUNTY IS " 

LOCATE 21 , 12 

PRINT co$ 

GOSUB 1500 

GOSUB 1440 

LOCATE 21, 

LOCATE 21, 12: PRINT 

GOTO 460 



: PRINT SPC<6) 
SPC< 6} 
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The Create Your Own Monster Kit 

Character building can be as much fun as playing a game. This 
'utility' enables 32 of the AmstracTs characters to be defined easily 
and then butted together to form more complex pictures. 

The built-in characters from 224 to 255 are first displayed and then 
the opportunity is given to adapt them, swap them, or create 
completely new ones. The definition values can be noted down and 
then used in your own programs using the 'Symbol 1 command. 
Complete sets can be saved on tape to produce a library of useful 
characters. 

Although many of the programs in this book have had characters 
designed for them, others use standard characters. With this 
character definer you can dramatically improve the appearance of 
these games. You may even wish to change all the ones in the book! 

Because of the wide range of features in this editor, it may take a 
little time learning how to drive it. The following list of commands 
will provide a handy reference guide during your 'Learner' period. 
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Character builder reference guide 

After loading, the grid starts with the first character picked up. This 
may then be Edited, Cleared, or any of the following can be selected 
by pressing the first letter of the option. 

Clear. This clears the grid completely. 

Pick up. Asks for character number, then as the last digit is pressed 
that character will be transferred to the grid. It can then be Edited, 
Changed, etc. 

Edit. Places the flashingcursor at the top left of the grid. It can then 
be moved around using cursor or joystick. Fire or copy key will set or 
unset a point. When finished 'Enter' is pressed. Then the number is 
required to transfer the pattern to. 

Numbers. Asks for character to which the pattern will be assigned 
and then requires eight values, corresponding to the total for each 
line, starting at the top. This then generates the image directly. 'Enter' 
terminates this option. 

Mirror. Asks for character number then asks whether horizontal 
(swap left to right) or vertical (turn upside down). The result is shown 
in the grid. To store the newcharacter select 'Edit' followed by'Enter' 
and then the character number for allocation. 

Vert shift. Asks 'up' or 'down'. Moves the definition up or down 
one row with wraparound. 

Hor shift. As for Vert shift, but left or right. Wrapped lines may be 
edited out. 

X-change. Asks for two characters and then swaps their 
definitions. 

Build. Removes the grid and provides a 14 X 10 character area in 
which to test how the patterns look when fitted together. The 
character number is requested and then that pattern may be placed 
anywhere using the cursor pad or the joystick. The fire button or copy 
key fixes a character. A new character is selected by firmly pressing 
'space' and then entering the character number required. 'Enter' 
leaves Build and returns to grid. 

Save. Asks for a file name to save with, next 'Play' and 'Record' 
should be pressed, then 'Enter' will save the current set. 

Load. Asks for a file name to load, or if just 'Enter' is pressed the 
first file found will be loaded. 

Note that in this program 'Escape' is disabled to prevent loss of data. 
Switch off to end. 
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1 REM <<< cha> builder <~> ISSI/JIM 

2 REM 

200 CALL &BB03 

500 SPEED WRITE 1 

1 0) G O S Ll B 2 1 

101 G S U B 2 

1020 char=l : GOSUB 22000 

1050 MEMORY 34995 

5 10 R E M > > > > > > > > > main loop < < < < < < : 

THEN GOTO 5030 

THEN GOSUB 10000 

THEN GOSUB 1 1000 

THEN GOSUB 12000 

THEN GOSUB 13000 

THEN GOSUB 14000 

THEN GOSUB 15000 

THEN GOSUB 16000 

THEN GOSUB 17000 

THEN GOStJB 18000 

THEN GOSUB 19000 

THEN GOSUB 19500 

> > > > clea r g r i d < < < < < 
1 0000 PR I NT CHR* ( 23 > ; CHR$ ( > ; 
10040 y=39S 
10045 fo*=SPACE*< 15) 
10050 FOR n=l TO 10 
10060 PLOT 382, y,0 
10070 PRINT #1 ,fo$ 
10080 y=y—16 
10090 NEXT n 
10100 GOSUB 25000 
1011 PR I NT CHR$ C 23 ) ; CHR* ( 1 ) ; 
10120 RETURN 

1 9 8 REM > > > > > > > > > > pic k - u p < < < < < < ■ 
1 1 000 GOSUB 1 0000 
1101 GOSUB 24000 
1 1 2 G S U B 2 2 
11060 RETURN 

1198 REM > > > :> > > > > > edit grid < < < < < 
12000 x= 1 • y-1 

1 2050 PR I NT CHR* ( 23 > ; CHR* ( 1 > ; 
12060 PLOT 382,382,3 
121 00 x 1 =366+x* 1 6 : y 1 ~398~y* 1 6 



5030 


a$ = 


=INKEY* 


5040 


IF 


a$= n M 


5050 


IF 


a$= ,, C n 


5060 


IF 


a$="P" 


5070 


IF 


a*= ,, E M 


5080 


IF 


a$= H N" 


5090 


IF 


a$="M" 


5100 


IF 


a$="V" 


5110 


IF 


a*="H" 


5120 


IF 


a$="X" 


5130 


IF 


a$="S" 


5140 


IF 


a*= ,, L n 


5150 


IF 


a$="B" 


5170 


GO' 


ro 5030 


9980 


REM >>>>> 
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IF fi=l THEN MOVE : 
HR*<143) ; 
2 2 6 G T O 121 

2290 REM * * * quit * * 



2110 MOVE xl,yl:PRINT #1 ,CHR*< 159> 

2120 GOSUB 29000 

2130 IF le = l AND x>l THEN x = x~-l 
IF ri=l AND x<8 THEN x=x+l 
IF up=l AND y>l THEN y=y~l 
IF do = i AND y<8 THEN y=y+l 



2140 
2150 
2160 
2170 
2180 
2190 



MOVE xl,yl:PRINT #1,CHR*<1 
IF q=l THEN GOTO 12300 



59 >; 

1 ,yl : PR I NT 



#1 ,C 



* 



2300 GOSUB 

2310 

2320 

2330 

2340 



>Q> THEN MID*<;>;*,m, 1 ) 



^4000 

b=374 

FOR n=l TO 8 

a~390 

x$=" 
2350 FOR m=l TO 8 
2360 IF TEST (a,b> 
CHR*<143> 
2370 a-a+16 
2380 NEXT m 

GOSUB 28000 

d ( c hi a r- , n > = x 

b=b-16 

NEXT n 

GOSUB 14560 

RETURN 

REM >>>>>>> 

GOSUB 24000 

FOR n=l TO 8 

CLS #2 

PRINT #2," value " ; n 

INPUT #2,va 

IF va<0 OR va>25E 

d( char, n }-va 
31 10 NEXT n 
3160 CLS #2 

GOSUB 14560 

RETURN 

REM > > > > > > > > > > > m i r r o r < < < 

GOSUB 24000 

PRINT #2,"(V)ert/(H)ori ? n 

b*=INKEY*:b*==UPPER*<;b$) 

IF b*="V" THEN CLS #2= GOTO 



2390 
2400 
2410 
2420 
2430 
2440 
2980 

3000 

3040 
3050 
3060 
3070 
3090 

3100 



3170 
3180 

3980 

4000 

4050 
4060 
4070 



val ue entry 



THEN GOTO 13080 



14500 
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14030 IF b*="H" THEN CLS #2 : GOTO 14100 

14090 GOTO 14060 

14099 REN * * * HORIZONTAL * * * 

14100 FOR n=l TO 3 

14110 x = d C c h a r , n > = GOSUB 23000 

141 20 y $= M 00000000 " 

14130 FOR m=l TO 8 

14140 MID$<y$,m, 1 >=MID*< x$ , 9-m , 1 ) 

14150 NEXT m 

141 60 x $=y % = GOSUB 23000 = d ( cha r , n ) - x 

14170 NEXT n 

14130 GOTO 14560 

14490 REN * * * VERTICAL * * * 

14500 FOR n=l TO Ss f <n )=d< char , n ) = NEXT n 

14510 FOR n=8 TO 1 STEP -1 
1 4520 d (cha r , n ) = f < 9™n ) 
14530 NEXT n 

1456 x = 1 2 8 : G S U B 2 6 

1457 G O S U B 27 
145 8 G SUB 1 
1459 G S IJ B 22 

1 4 6 x = 1 2 3 : G SUB 2 6 

14610 RETURN 

14980 REN > > > > > > > > vert- shift < < < < < < < 

1 5000 GOSUB 24000 : PR INT #2 , " < U ) p / ( D > own 



15040 b*=INKEY$:b*=UPPER$(b*> 

15050 IF b$= n U" THEN CLS #2 s GOTO 15120 

15060 IF b$="D" THEN CLS #2 : GOTO 15090 

15070 GOTO 15040 

15030 REM * * * down * * * 

15090 FOR m=l TO 7 : GOSUB 15130: NEXT m 

15100 GOTO 15210 

15110 REN * * * up * •* * 

15120 GOSUB 15130 s GOTO 15210 

15130 FOR n=l TO 3 

1 5 1 40 f ( n > = d ( c h a r , n > 

15150 NEXT n 

15170 d(char,8)=f ( 1 > 

15180 FOR n = 2 TO 3 : d ( char , n~ 1 } = f <n ) : NE XT 

n 
15190 RETURN 

15200 REN * * # final * * * 
15210 GOSUB 14560 
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h o r i - shift 



5230 RETURN 

5980 REN >>>>>> 
L 6 G S LI B 2 4 

L6040 PRINT #2, ll (L)eft/(R)ight"; 
L6050 b*=INKEY*:b*=UPPER*(b$> 
L6060 IF b*= ,, L" THEN CLS #2 : GOTO 16100 
L6070 IF b*="R" THEN CLS #2 : GOTO 16510 
L 6 8 G T 1 6 5 
L6090 REM * * * left * * * 
L6100 FOR m=l TO 7 : GOSUB 16600: NEXT m 
L61 10 GOSUB 14560 
L6120 RETURN 

L 6500 REM * * * right * * * 
L 6 5 1 G S U B 1 6 6 '* G S U B 14 5 6 
L6520 RETURN 

L 6590 REM * * * divide * * * 
L6600 FOR n=l TO 8 
L 66 1 f ( n ) = d < c h a r , n ) 
L6620 x = f (n) : x==INT< x/2> = IF x<>f<n)/2 THE 

x = >c+12S 
.6630 d( char,n)-x 
l6640 NEXT r. 
.6650 RETURN 

. 6 9 8 REM > > > > > > > > > > e x change < < < < < < < < < 
. 7 G O SUB 24 
.7010 charl=char 
. 7 5 G Hi S U B 24 

7070 FOR n=l TO 8 
.7080 f ( n > = d ( cha r , n ) 

7090 NEXT n 
.7100 FOR n=l TO 8 

71 10 d( char,n}-d< charl , n > = d< charl , n > = f ( 

> 
.7120 NEXT r. 
.7130 GOSUB 14560 
.7140 RETURN 
.7980 REM > > > > > > > > > > > > save < < < < < < < < < < < 

8000 PRINT #2, "Fi lename ?" 

8010 INPUT #2,r.$ 

8020 n*=" ! "+n$ 
.8030 SAVE n* , b , 43776 , 256 

;:040 CLS #2 
.8050 RETURN 

8980 REM > > > > > > > > > > > > load < < < < < < < < < < < 

9 x = 12 8 s G S U B 2 6- 
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19010 PRINT #2, M Fi lename '?" 

19020 INPUT #2,n*:n*= u ! "+n* 

19030 LOAD n* 

19040 CLS #2 

19050 GOSUB 2 1060: GOSUB 27000 

1 9060 x = 1 28 : GOSUB 26000 

19070 G S U B 1 s G SUB 22 Q) Q) 

19080 RETURN 

194 8 R E M > > > > > > > > > > b '-i i 1 ct pic < < < < < < < 

1 9 5 G O SUB 1 9 8 5 

19540 GOSUB 24000 : ch-char+223 

1 9550 PR I NT CHR* ( 23 > ; CHR* ( 1 > ; 

I960 x = 3 9 8 s y = 3 8 2 

19610 MOVE x,y: PRINT #1 , CHR*< ch > $ 

1 9 6 2 G SUB 2 9 © 

19630 IF fi = l THEN MOVE x,y:PRINT CHR* 

3> ;CHR*<0> ; : PRINT #1," ";: PRINT CHR*<2 

;CHR*(1> ; 

19635 MOVE x,y: PRINT # 1 , CHR* < ch ) ; 

1 9640 IF q= 1 THEN GOTO 1 9700 

19650 IF ex = l THEN GOSUB 24000 : c h= c har 



<2 
3> 



+2 



AND x >382 > - 1 6* ( ri=l 
AND y<39S)+16*<do=l 



1 9660 x = x + 1 6* < 1 e = 1 

HD x<590) 

1 9670 y =y- 1 6* < up= 1 

ND y>254) 

1 9 6 8 G T 1961 

197 G SUB 1 9 S 5 

1971 GOSUB 1 0000 

19720 RETURN 

19840 REN ***cls*** 

1 9850 PR I NT CHR* ( 23 > ; CHR* < > ; 

19860 FOR n=l TO 10 

19870 LOCATE 24, n 

19880 PRINT SPC<;i5> 

19890 NEXT n 

1 9900 PR I NT CHR* ( 23 > ; CHR* ( 1 ) ; 

19910 RETURN 

1 9 9 8 R E M > > > > > initialize screen 

20000 I NK ,0:1 NK 1,24:1 NK 2 ,3:1 NH 

200 10 PAPER : NOD E 1 : BORD E R 

20020 PAPER 2: FOR n=l TO 25 

20030 PRINT SPC ( 23 >: PRINT: NEXT n 

20035 TAG #1 

20040 PR I NT CHR* ( 23 ) ; CHR* ( 1 > ; 



A 
A 



PAPER 



3,1: 
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20050 PLOT , 393 , 3 

20060 PRINT #l, ,r No. Old New No- Old New" 

5 

20070 MOVE 0,382 

20080 PRINT #1 , "— " 

\ 

201 10 y=358 

20120 FOR n=l TO 16 

20130 MOVE 0,y= PRINT # 1 , 223 + n ; CHR* < 223+n 

); 

20 1 40 MOVE 1 90 , y : PR I NT # 1 , 239+n ; CHR* ( 239 

+ n> ; 

20150 y=y-22 

20160 NEXT n 

2017 G O S U B 27 & 

20 1 80 x = 1 28 : GOSUB 26000 

2 1 9 G S l_l B 2 5 

20210 WINDOW #2,25,39,11,13 

20220 PAPER #2,1: PEN #2,0:CLS #2 

20240 RESTORE 20310 :y= 180 

20250 FOR n=l TO 11 

20260 READ n*:PLOT 382 , y , 3 : PRINT #1,LEFT 

*<ri$, 1) ; 

20270 P L OT 398 , y , 1 : PR I NT 4*1 , M I D* < r. * , 2 , L E 

N<n*>;> ; 

20280 y=y— 16 

20290 NEXT n 

20300 PR I NT CHR* ( 23 ) ; CHR* ( 1 ) ; : RETURN 

20310 DATA Clear, Pi ck-up , Edit , Numbers , Mi 

rror , Vert shift 

20320 DATA Hori shift , X-change , Bui 1 d , Sav 

e , Load 

20980 REN >>>> initialize variables <<< 

21000 DIN f(8) 

21010 DIN d<32,8> 

21050 SYMBOL AFTER 224 

21060 addr=43776 

21070 FOR n=l TO 32 

21080 FOR m=l TO 8 

21090 d(n , m}=PEEK (addr) 

21 100 addr-'addr+l 

21110 NEXT m 

21120 NEXT n 

2 1 1 30 addr=34999 : GOSUB 29500 

21250 RETURN 
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2 1 9 8 REM > > > > > > > > > > cl raw c h a r < < < < < < < < 

22000 PR I NT CHR* < 23 > ; CHR* ( 1 ) ; 

22040 y=3S2 

22050 FOR n=l TO S 

22070 x = d< char , n > : GOSUB 23000 

22080 PLOT 332, y, 3: PRINT ttl,x$;x; 

22090 y=y™l6 

22100 NEXT n 

22110 RETURN 

22980 REM > > > > > > > > > > X to X % < < < < < < < < < < 

23000 x$=BIN$< x ,3) 

2 3 4 F R m = 1 T 8 

23050 IF MID$(x*,m, 1 )^"0" THEN MID$<x$,m 

, 1> = " M 

23060 IF MID*<;x*,m, 1 >-" 1 " THEN MIDtKx* ,m 

, 1>=CHR*<. 143) 

23070 NEXT m 

23080 RETURN 

239 8 REM > > > > > > > > > > i n p u t c h a r < < < < < < < 

24000 PRINT #2, "character ? " : PRINT #2 

24010 n*=" " 

24040 FOR n=l TO 3 

24050 b*=INKEY*:lF b$<"0" OR h$>"9" THEN 

GOTO 24050 
24060 PRINT #2,b$; :n* = ri$ + b$ 
24070 NEXT r. 
24075 CLS #2 
24080 c h a r = \J AL ( n * ) 
24085 IF char <224 OR char>255 THEN GOTO 

24000 
24090 char- char— 223 
24100 RETURN 

24980 REM > > > > > > > > > d raw g r i d < < < < < < < < < 
25000 PRINT CHR$(23) ;CHR$<3> ; :x=382:y=38 

25010 FOR n=l TO 9:PL0T x , y , 1 "■ DRAW x+127 

25020 y-y-16 

25030 NEXT n 

25040 y=382 

25050 FOR n= 1 TO 9 : PLOT x , y , 1 = DRAW x , y- 1 

■~icr. 
•£_-_' 

25060 x-x+16 
25070 NEXT r. 
25080 RETURN 
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25980 REM V 
26000 PRINT 



CHR*< 



• characters 
:3> ;CHR$C 1> ; 



y=35S:PL0T 



" ;CHR*<223+n) ; 
;CHR*(239+n) ; 



a r ray to c h a r s 



m=l TO 3 



26040 FOR n=l TO 16 
26050 MOVE x ,y 
26060 PRINT ttl , M 
80, y: PRINT #1 , " 

26070 y-y-22 
26080 NEXT n 

RETURN 

REM >>>>>> 

addr=43776 

FOR n = l TO 32: FOR 

POKE addr, d(n , m) 
= addr+l 
m:NEXT n 

RETURN 

REM > > > > > > > > > > X % to X < < - : 

REST R E 2 8 9 '* x = 

FOR m=l TO 8 

READ y:w$=MID$(xt,m,l) 

IF w$O tl "THEN x = x+y 

NEXT m 
28080 RETURN 
28090 DATA 1 28 ,64,32,16,8,4,2,1 



MOVE x+1 



26090 

26980 

27000 

27040 

27050 

27060 addr= 

27070 NEXT 

27080 

27980 

28000 

28040 

28050 

28060 

28070 



Now 'MERGE ' the ' INKEYS' routine- 
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Picture Builder 




Your Phosphor Palette 

This is hi-tech art on your Amstrad. though it is unlikely that any of 
your 'masterpieces 1 will ever fetch thousands of pounds. 

The program starts by asking for the mode (0, 1 or 2) and colours 
to be used for the border (0-26), paper (0 15) and the initial ink 
(0 15). A list of colour numbers is in your reference manual or in 
Appendix 5 of this book. A set of drawing colours are contained in 
the program. (Change the data in lines 20110 and 20 120 for different 
colours.) The next request is for a picture name, which will be used 
for saving. 

The final option offered is to have an 'information window' 
displayed. This will constantly show the current x,y co-ordinates of 
the drawing pointer and may be used to plan out plotting sequences 
to be incorporated into programs. The map of Great Britain in this 
book was generated in this way. The window appears at the top or 
bottom of the screen and automatically moves if it is in the way, 
whilst the picture underneath is still retained. 

When the screen appears a graphic 'pencil' shows where the line 
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will be drawn. The pencil is moved using the joystick or cursor pad. 
Pressing the fire button or copy key changes the pencil to an eraser 
symbol. This will then rub out any lines that it passes over. If the fire 
button is pressed again a cross symbol will be displayed. This 
indicates that the cursor may be moved without drawing a line. Once 
in position to draw again, pressing the fire button will return to the 
pencil and draw mode. The cursor can be cycled through these modes 
by repeated pressing of the fire button. 

A very useful alternative to using the pencil is to use the 'Auto line' 
mode. First the k Move' symbol is obtained and moved to where the 
line is to start. Pressing 'Space' gives a beep and stores that position. 
The cross is then moved to the second location, 'Space' pressed and a 
line will be drawn between the two points. 

At any time the current drawing ink can be changed using the 
'Enter' key. Each press of the key steps through the available inks and 
the cursor changes colour to show the one selected. 

'Shift' 'S' saves the current picture immediately to tape when 
selected. 'Record' and 'Play' should be pressed beforehand as 
prompts are not displayed. 

'Shift' 'L' then Tlay' on the tape deck will load the first picture file 
found. The current screen will be cleared and the new one displayed. 

Although drawing a picture can take some time, dependent upon 
the mode, producing 'art' in this way can be very enjoyable. 

1 REM < < < < p i c t u r e b u i 1 d e r <> I S S I > > > > 

2 REM 

500 SYMBOL 240,240,200,164,146,79,47,30, 



510 

1 

520 

,10 
600 

6 1 



SYMBOL 241 , 240 , 226 , 228 , 1 52 , 24 , 36 , 66 , 
SYMBOL 242,240, 184,220,233, 119,56,27 



MEMORY 23699 

SPEED WRITE 1 
1000 GOBUB 21000 
1 1 x =0 : y =399 « d r = 1 s 1 i =0 
1020 hd=4:vd=2=TAG #3 
1030 IF m=l THEN hd=2 
1040 IF m-2 THEN hd=l 
1100 GOSUB 28000 

1140 IF y<50 THEN po=395 ELSE po=2€> 
1150 w*="x ,, +STR*<K> + ,, y "+STR*Cy > + " ink 
+STR*<;pe) 



180 Sensational Games for the A mstrad 

1155 PRINT CHR*<:23>;CHR*<:i>; 

1160 IF inf=l THEN MOVE 0,po: PRINT #3 , w* 



1 200 PR I NT CHR* < 23 ) ; CHR* < 1 > ; 
1210 PLOT x,y,pe 
1220 PRINT #2,CHR*<240+dr); 
1230 PRINT CHR* ( 23 > ; CHR* ( d r ) ; 
1240 IF dr-=2 THEN ko=pap ELSE 

PLOT x,y,pe 

PLOT x,y,ko 

PRINT CHRSC23) ;CHR*(1> ; 

PLOT j 

PRINT 



1250 
1260 
1370 
1330 
1 390 

1400 

1440 
1450 



< i y » P e 
#2,CHR$<240+dr 



) 



ko-pe 



PR I NT CHR* < 23 ) ; CHR* < d r > ; 

PRINT CHR*<23>;CHR*<1>; 

IF inf=l THEN MOVE 0,po: PRINT #3 , w$ 



1460 IF sav^l THEN GOSUB 18000 
1470 IF lo=l THEN GOSUB 1S500 
1480 IF li=l THEN GOSUB 23000 
1500 GOTO 1100 
17980 REM > > > > > > > > > > > save < < < : 



18000 


CALL 23700 




18010 


SAVE n*,b,&6AE0,&3FFF 




18020 


RETURN 




18480 


REM > > > > > > > .* > > > load < ■ 


■; < < < < < • 


1 8500 


LOAD " ! " 




13510 


CALL 23715 




18520 


RETURN 




19980 


REM >>>>>> initialisat 


i o n < < • 


20000 


MODE 1 : PAPER 0:PEN 1 




20010 


INPUT "MODE ?" ,m 




20020 


IF m=0 THEN co= 15 s GOTO 


20060 


20030 


IF m=l THEN co=3 : GOTO 


20060 


20040 


IF m=2 THEN co=l sGOTO 


20060 


20050 


GOTO 20010 




20060 


RESTORE 20110 




20070 


FOR n=0 TO co 




20080 


READ a 




20090 


INK in, a 




20100 


NEXT n 




20 110 


DATA ,13,24,2,6, 20 , 1 5 


i - 


20120 


DATA 2,21,26,8,7,13,16 


,5 


20130 


CLS 




20140 


INPUT "BORDER " ;tao 
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20150 IF bo<0 OR ho>27 THEN GOTO 20130 

20160 BORDER bo 

20170 CLS 

20180 INPUT "PAPER " ;pap 

20190 IF pap<0 OR pap>27 THEN GOTO 20170 

20200 PAPER pap 

20210 CLS 

20220 INPUT "INITIAL INK M ;pe 

20230 IF pe<0 OR pe>co THEN GOTO 20210 

20240 PEN pe 

20250 CLS 

20260 INPUT "Name to 'SAVE 1 H ,n$ 

20270 n$=" ! "H-n* 

20280 CLS 

20290 INPUT "Information window ?",a$ 

20300 inf=0 

20310 IF a$="y" OR a*="Y n THEN inf=l 

20340 MODE m 

20350 RETURN 

20930 REM > > > > > > > > > > s t a r t < < < < < < < < < < < < 

21000 GOSUB 30000 

21010 addr=23729: GOSUB 29500 

2102 G O S U B 2 

21030 TAG #2 

21100 RETURN 

23000 SOUND 1 , 200 ,10,15 

23010 IF flag=l THEN GOTO 23050 

23020 f lag=l s xl = x : y l=y : dr-=l 

23030 t d=h d : h d= h d*3 "■ v d=6 

23040 RETURN 

23050 f lag-0 - hd==t d : vd-2 

23060 PR I NT CHR* < 23 ) -, CHR* ( > ; 

23070 PLOT x,y,pe:DRAW xl,yl 

230S0 PRINT CHR*<23>5CHR*<1>; 

23090 RETURN 

27980 REM > > > > > > > > > > nioveme n t < < < < < < < < < 

28000 GOSUB 29000 = 1 i =0 = sav=0 : 1 o=0 

28010 IF le=l AND x >0 THEN x=x-hd 

28020 IF ri=l AND x<639 THEN x=x+hd 

28030 IF up=l AND y<399 THEN y-y+vd 

28040 IF do=l AND y>0 THEN y=y-vd 

28050 IF fi=l THEN dr=dr+l:IF dr=3 THEN 

dr=0 

28060 PRINT CHR*<23)jCHR*<dr>5 

28070 IF q=l THEN pe=pe + l-*IF pe=16 THEN 
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pe~0 

28080 
28090 
28100 
28110 
28120 
29980 

30000 
30010 



IF 
IF 
IF 
IF 



ex-1 
a=67 

a — y •-' 
a=76 
RETURN 
REM >>> 
RESTORE 
FOR n=2: 



THEN 
THEN 
THEN 
THEN 



li = l 
CLS 

sav=l 
lo = l 



:•>>>> poke b/move 
30060 
>700 TO 23726 



30020 READ a 

30030 POKE n , a 

30040 NEXT n 

30050 RETURN 

30060 DATA 33 ,0,1 92 ,17, 224 , 1 06 

30070 DATA 1,255,63,237,176,201,0,0,0 

30080 DATA 33 , 224 , 1 06 ,17,0,1 92 

30090 DATA 1 , 255 , 63 , 237 , 176 , 201 



Now 'MERGE ' the ' INKEYS' routine 



27 
Arnold Monitor 




Open RAM Surgery 

This utility, which bears the Amstrad's original name, will help with 
investigations into memory. The machine's ROM routines can be 
looked at or any program which can co-reside in RAM can be 
examined. Memory can be modified, saved or loaded. 



Command summary 

View Memory. Asks for the start and finish locations, which have 
to be decimal. The memory contents will then be displayed in blocks 
of ten. 'Space' steps through to the 'finish 1 . Text' can be read from the 
ASCII columns. 

Checksum. Asks for the start and finish. All the values are then 
totalled in decimal, inclusive of the addresses entered. This option is 
useful when entering from a listing which provides a 'Checksum' to 
check if errors have occurred. 

Modify mem. Again the start and the end addresses are required. 
Then the display shows the current value. Pressing 'Enter' will retain 
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this value and the next location will be displayed. Typing numbers 
followed by 'Enter' will put what is typed into the current address. If 
the value is invalid then this will be indicated and no changes will be 
made to memory. The next location will then be shown. Great care 
should be taken, since any RAM may be modified with perhaps 
surprising results. (All entries are in decimal.) 

Save. Asks for start and finish (decimal), then the file name. Saving 
commences when 'Enter' is pressed. 'Record' and Tlay' should be 
pressed prior to selecting the 'Save' option. 

Load. This, when followed by pressing 'play', loads the first file 
found. 

'Shift' 'Q' will quit any option. 



1 R E li < < < < < < < monito r 

2 REM 

500 MEMORY 850 
510 SPEED WRIT 
1000 GOSUB 200 

PRINT #1, 

a*=INKEY* 



ISSI 



1 500 

1 5 1 
1520 
1 530 
1540 
1550 
1560 
19980 

20000 
20010 

20020 
20030 
20040 
20050 



IF 

IF 

IF 

IF 

GOTO 
REM 
INK 



E 1 

00 

"Type Your Choice - - 

:a*=UPPER*(a*> 

a*= M V" THEN GOSUB 21000 

al^'M" THEN GOSUB 22000 

a*= ,, C" THEN GOSUB 23000 

THEN GOSUB 24000 

• > > > > > > scree n < < < < < < < 
INK 1 ,26: INK 2, 18: INK 



1510 
.*** .•■" .■*' . 

, 

MODE 1 
WINDOW # 
PAPER 3: 
PAPER 
PRINT 



_» , x. 



#1 



1,2,39,4,20 

PEN 2: BORDER 0:CLS 

,0:PEN #1,1 :CLS #1 

ARNOLD MACHINE CODE M 



ON I TOR' 1 
20060 PRINT 



20070 LOCATE 4,22: PRINT "(V)iew memory" 
20080 LOCATE 4,24: PRINT " (M>odify memory 



20090 LOCAT E 25 , 22 : PR I NT " < C > hec k s urn " 

20100 LOCATE 25,24: PRINT " (S)ave\ 1 oad" 

20200 RETURN 

20980 REM > > > > > > > > > > > > view < < < < < < < < < < < 

2 1 000 GOSUB 26000 

21070 CLS #1 
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21080 PRINT #1, "Address (hex) Va 
1 ue ( hex ) 



21090 FOR n=4 TO 13 

21100 LOCATE #1, l,n: PRINT #l,sta 

21110 LOCATE #1 , 10, n : PRINT #l, n ( l, ;HEX$(s 

ta) ; ")" 

21120 LOCATE #1 ,24, n : PRINT #l 1 PEEK<sta) 

21130 LOCATE # 1 , 3 1 , n : PRINT #1 , I, (";HEX$(P 

EEK<sta>) 5 " )" 

21140 LOCATE #1 , 18, r. : PRINT #1 , CHR*< 1 ) ;CH 

R*<PEEK<sta>> ; 

21145 IF a*= ,, Q" THEN GOTO 22230 

21150 sta=sta+l:lF sta=fin+l THEN GOTO 2 

1200 

21 160 NEXT n 

21 170 a*=INKEY* 

21175 IF a*="G" THEN GOTO 21220 

21180 IF a*<>" " THEN GOTO 21170 

21190 GOTO 21070 

21200 a*=INKEY* 

21210 IF a*<>" " THEN GOTO 21200 

21220 CLS #l:RETURN 

21980 REM > > > > > > > > > > > modify < < < < < < < < < < 

2 2 0) G Hi S U B 2 6 

22070 CLS #1 

22080 PR I NT # 1 , "Addr-es s ( h e x ) Va 

1 ue 



22090 FOR n=4 TO 13 

22100 LOCATE #1 , 1 ,n : PRINT ttl,sta 

22110 LOCATE #1 , 10 , n : PRINT #1 , " ( " ;HEX*< s 

ta) 5 ,, > M 

22120 LOCATE #1 , 24 , n : PRINT #l,PEEK<sta> 

22130 LOCATE #1 ,31,n 

22140 a*=INKEY*:IF a*= M " THEN GOTO 22140 

22145 IF a*^"Q" THEN GOTO 22230 

22150 IF a$< H 0" OR a*>"9" THEN GOTO 2216 



22155 GOSUB 22500 

22160 sta=sta+ls IF sta=fin+l THEN 22210 

22170 NEXT n 

22180 a*=INKEY* 

22190 IF a*<>" " THEN GOTO 22180 

22200 GOTO 22070 
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22210 

22220 

22230 

22490 

22500 

22510 

22520 

22530 

22600 

22610 

22620 

<13> 

22630 

22640 

22650 

22700 

ND 2, 

22710 

22720 

22730 

229S0 

23000 

23010 

23020 

23030 

23040 

23050 

23055 

23060 

23070 

23080 

23090 

23120 

23130 

23140 

23150 

23160 

23170 

239S0 

24000 

24010 

24020 

24030 

24040 

24050 



a*=INKEY* 

IF a*<> H " THEN GOTO 22210 
CLS #l: RETURN 
REM * * * mod * * * 
n $==:» " : PRINT #1 , a* ; :n*=n*+a* 
GO SUB 22600 

IF a*=CHR*C13> THEN GOTO 22700 
GOTO 22510 
a*=INKEY* 

IF a$=" M THEN GOTO 22600 
IF <a*< "0" OR a$>"9" ) AND a*< >CHR$ 
THEN GOTO 22600 
IF a*=CHR*(13> THEN RETURN 
n*=n*+a*: PRINT #1 ,a$; 
RETURN 
a=\/AL(ri*> : IF a 



OR a>255 THEN SOU 



300,25, 15: RETURN 
POKE (sta) , a 

LOCATE #1 ,24, n: PRINT #l,a;" 
RETURN 

REN > > > > > > > > > > checks u m < < < J 
GOSUB 26000 
tot=0 

FOR n=sta TO fin 
LOCATE #1 ,10,10 
PRINT #l,n 
tot = tot + PEEK<ri> 
a*=INKEY*sIF a*="Q n 
NEXT r. 

SOUND 1,300,25, 15 
SOUND 1,200,25,15 
SOUND 1 , 100,25, 15 
LOCATE #1 ,10,12 
PRINT #1 , ,, Check = ,, ;tot; 
a*=INKEY* 



THEN n=fin 



IF a*<>" 
CLS #1 
RETURN 
REM >>>>> 
PRINT #1 , 



THEN GOTO 23140 



•■> save/load <<<<< 
(S)ave or (L> oad 
a*=INKEY*:a*=UPPER*<a*> 
IF a*= ,, S" THEN GOTO 24050 
IF a*="L M THEN GOTO 24500 
GOTO 24010 
CLS #1 
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24070 
24030 
24090 
24100 
24 1 1 
24120 
24130 
24500 
24510 
24520 
24530 
24540 
24550 
25930 

26000 

26010 
26020 
26030 
26040 
26050 
26060 
26070 
26030 
26090 
26100 
26110 
26150 
29930 

30000 
30010 

30020 
( 1 3 > 



EN GOTO 24050 
1 , "Name n ;n$ 



GOSUB 26000 

IF sta<8000 TH 

CLS #1 : INPUT # 

n*=" ! "+n* 

SAVE n*,b , sta, f in-sta+1 

CLS #1 

RETURN 

CLS #1 

INPUT #1, "Filename " ;n$ 

n*=" ! "+n* 

LOAD n* 

CLS #1 

RETURN 

REM >>>>>>> 

CLS #1 

PRINT #1 , " Stai 

GOSUB 30000 

IF addr<0 OR a< 

sta-addr 

BOUND 2,300,25 

CLS #1 :PRINT # 

GOSUB 30000 

IF addr<0 OR addr>65535 THEN 26060 

f in-addr 

CLS #1 



> input <<<<<.<<. <X< 

u-t : " 

iddr >65535 THEN 26000 

,15 

1 , " Finish : " 



IF sta>=fin TH 
RETURN 
REM >>>>>>>:: 
n*= ,,n 
a*=INKEY* 
IF <a*<"0" OR 
AND a*OCHR*<12 



EN GOTO 26000 

n put a d d r < < < < < < < < < 



a$>"9 M ) AND a$OCHR$ 
7) THEN GOTO 30010 

) AND LEN(r.*)<l THEN 



30025 IF a*=CHR*<127 

GOTO 30010 

30030 IF a*=CHR*(127> THEN r.* = LEFT*<ri* , L 
EN < n* > - 1 > s GOTO 30050 

30040 ri$=n$+a$ 

30050 SOUND 2 , 1 50 , ... , 

30060 PRINT #l,n^; M 

30070 IF a*=CHR*<:i3) 

30080 GOTO 300 1 

30090 addr-V/AL <n$> 

30100 RETURN 



15: LOCATE #1 , 10, 10 
THEN GOT 3 9 



Final Words 



In producing this book an attempt has been made to adopt a 
standard of game which is well above the norm. 

This naturally leads to longer programs which require greater care 
to enter. The time will come therefore when you will need to debug 
your programs. This is when you have the opportunity to try to 
understand how and why the programs work. 

To help you in this task there follows a 'debug guide 1 . 



General points 

1. Get someone else to double check that the entry matches the 
listing. Say it out loud. 

2. Remember that in 40-column mode the listing should match the 
screen line by line. 

3. Be careful that an I has not been confused with a I. 

4. Ensure that lower case 'a 1 is entered as such and not V A\ 

5. Watch out for ';' instead of ':'. 

6. Double check spaces by reference to the spaces above and 
below. 

7. Double check line numbers. Don't confuse a number which 
flows over onto another line as a line number. 

8. Treble check data. It is very easy to skip a few numbers. As an 
overall check, count how many commas and compare with the 
listing. 

9. Make sure that all quotes are in. 

10. Is there really a fault? Re-read the instructions for play. Most 
responses need to be followed by the 'Enter' key. 
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Specific problems 

1. To save space whilst still including substantial programs, 
extensive use is made of merging. Familiarise yourself with this 
technique on a simple program first. We anticipate some problems 
from readers in using this technique, but consider the finished results 
to be worth while for the majority. 

2. One of the main sources of program failure is poor handling of 
bad entries. For example, a program may crash if an unexpected 
minus number were entered. It is possible to anticipate most 'silly 1 
entries but only at the expense of needlessly longer listings. In writing 
these programs it has been assumed that the player will not set out to 
crash the program! They are therefore only protected against class 
three idiots. If you will be exposing your finished efforts to a hostile 
environment then it is up to you to protect against class one idiots. 

3. All programs should work equally well on the monochrome 
Amstrad, but change the colours (after saving the correct version) to 
suit your own taste. Micro Mind can use symbols instead of colours 
to make the game playable in monochrome. 

4. It is always good practice to load into a machine which has just 
been powered up. This can avoid problems if the previous program 
left something changed deep within the machine. 

5. Unfortunately the Amstrad 'Random' function has been found 
to be very predictable. Care has been taken to minimise this problem 
whenever possible but you may be able to remember certain 
sequences. 

Debugging 

If none of the foregoing resolve the problem then roll up your sleeves 
and note some of these tips. 

1 . If an error message indicates a fault is in a particular line, but it 
looks right when examined, remember that the fault could be in the 
line which passes information to that line. Check back related lines. 

2. Errors such as 'Out of range', 'Improper argument', etc., maybe 
traced as above. To help type 'PRINT A' or whatever variables are 
used in that line. This should indicate the problem. 

3. Bits being missed out! The Amstrad's Tron' function will show 
the order in which lines are called, often highlighting a rogue 
'GOSUB' or similar problem. 
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4. Work methodically. Consider each section in turn. Set 'Break 
points' using 'End' or dump out variables by adding a short print line 
in the middle of the faulty routine. 

5. Temporarily disable sections of program by adding a 'REM' to 
the start of a line. See what the effect is. 

6. Re-type the section responsible! During development of these 
programs some 'Out of memory' errors could only be mysteriously 
solved by re-entering a single 'perfect 7 line. 

7. Use the 'On error', 'Erl' and 'Err' functions normally as 
described in the manual. 

8. Go to bed - have a sleep. It sometimes works the next day! 



Appendix 1 : Complete Amstrad Character Codes 



CHARACTER CHR$ CHARACTER CHR$ CHARACTER CHR$ CHARACTER CHRS 



v' 
ifi! 
#~ 

Ah. 



© 
© 



Hi 



9 



Hi! 



II 



4 

m 
m 
m 



it* 






C 






I! 





ii; 



1 
I 



w 


8.1 


I 


84 


II 


85 


U 


86 


IN! 


87 


II 


88 


1 


84 


II 


<X) 



b 



IP 



k 



pi- 



"I 

IT- 



'S 



«M» 



'V 



17 

1 
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CHARACTER CHR$ 



tun 

i|„, 



mum 


1 54 


"»»» 


155 


* 


156 


mj 


157 



CHARACTER CHRS 
•'■ u \w 

It II 

£ - 

i - 



••••II 



&■ 



i>;: 



!l::l! 



€: 

■i 
f* 

■i:i"" 

J-f 

.I 1 'li. 

m 

ill... 



i!i;l 



CHARACTER CHRS | CHARACTER CHRS 
,!• l««''l 

CI 

m 

'•mi.' 

iiig» 
•#• 
'IIP' 
.i;|. 

O 

>in> 

( 200 

.l r 



l i:'' 

X 





"„"m 



•I'l 



•HI* 

VM/ 



.rife 



•lip 

tiii 
.llllll. 

jlli... 

••H||| 
• '1' • 

IT 

4- 

* 
f 

"1" 



Appendix 2: Defined Character Design Aid 







'- ■■■- 1 I ' ; 1 ! ! 1 1 Mil 


i i i 


1 '! M ' I ! I II 


Ml! ; ; 1 M 












1 M M 1 M ' M 




Mi Mill 








1 I 1 ' ' ! 1 ' ' M 1 1 1 






1 ; i i ! 1 M 1 ' I ' ! I M !Mil i i : ' i ' 


■ ; I ; ; : ■ M^i : ! 








Mil' M 1 1 1 II 


Mil' M I ' ' ' M : M ■ i 




M i 1 ! i I 1 1 M 1 I ! 


1 M , , 


















i ' Ml II! ! I ' 






1 1 1 1 l M ' 1 I 1 1 i I i ' 




' Mil , , M 






I MM i 1 M 


i 1 I i 1 "i ! 1 Jr " 1 !l~"? . *' 






I i ' I || |; 










1 M J 1 i | 1 


4-.|.j.. t | -| — — u- _j--j — | — — i — l j j J j | 












• ! 1 ~^~ ~^~ ~\~ 1 II 


1 ! 1 








■ ■ i ■ I 


i 11' : i ' 1 M 


I j j 














1 I ! 




I 1 




j ; ■ ■ |l ; 


_|J L 
















1 i t ( ' ~~^ Ml' *"" ' H" 




; J ; || 


i 1 1 1 1 | I 


i ' i 










~*~ I ^~ ' '''ill! 




Ml 111 1 








' ■ " "■ I i ' " ' " f '^"" ! | ! 




i 








iii 1 • 1 














- 4-,-p- - 










II III 















^"^n" 




1 




































i 1 


t_±: 


Jtxx 



CHARACTER DEFINITIONS 



33 


■ni so <x> ^r <n — 




1 I 1 1 ■ 1 ! 


! ! 1 










' : ■ - 




; 


' ' ' ■ 






■ ' 1 ! 


j ■ 


. ! 


, ' 


i ! 


1 


J ' 




Ijj 




! 


' ' 




1 


1 ! ( 


-r- 


.-i + . j - t - 


■ -(— 


-f- 


| ... ♦ +- 


-,_L 


! 








■. ! 


! 






■ ■■< — f— 


— i— (- 


... 4_.^. j.-L- 


-t-<- 


! 


__ L—i— 


| 




; 


T 


1 ! i 




_L 


III! 


[ "1 



iti- 



i n ' 1 



ao-^tiMsooo^fN — 




1 




r:;-^rr:£ 




- — + — ■—- H 


—r— : . ^+- 


.._. .;(■- ... -l-L 


■ t -i^- : T 4-_^ 


■ ' 


1 i ' 


_. r Mi.^...i_-..-^ 


' 1 I t 


■ 


—J-. .. — , 


oo "*■ rv| \c oc t »n — 




IZMlMMMMMMr 


..._ll L^li.. 1_ 


JFi-~: : -t= 


: j |: : , ; 1 




' l I ' ' ! ' ! 1 




i , j i 




i 


. ... ._ j^ 



(N 


3 


*N vo oo *» rv| 










111! 






— 


! 




: 


----- — - + — 


■ ~ 






' 








: , 












: . 






i i . 


' 


— r- 


- 




- -;-^ 


, ..;.+ ■ 


*-- 


' 










' 






■ ■ 


! 


' ' 












"M 












I : 












: | 


| 












■ ; 








































■ 




















1 


-J-J 


_L_ 



«N 


rr < N >* t »*f 


M 


- 














_ <.._ * 




— 




^ 


_: - .-,.. 


-_ 






> ^ 


xt'T'r 


,4-- 


■1 — 




' | ■ 








1 | 










| ; 


■ i ' i 




J ! ! 


1 ' i ' 








| | 




■ + 










' ' 










! : 
















■ 
































11 









You may photocopy this page for your own use. 



Appendix 3: Screen Layout Planner 



MODEO 



20 COLUMNS x 25 ROWS 



16 COLOURS 
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MODE1 



40 COLUMNS x 25 ROWS 
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MODE 2 



80 COLUMNS x 25 ROWS 



2 COLOURS 
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Appendix 4: Amstrad Memory Map 



& 10000 



&C000 



&B100 



&4000 



&0040 



&0000 



SCREEN 
RAM 



JUMPBLOCK/STACK 



USER MEMORY 



USER MEMORY 



RESTARTS 



UPPER 
ROM 



LOWER 
ROM 



Appendix 5: Amstrad Colour Table 





COLOUR 




COLOUR 





BLACK 


13 


WHITE 


1 


BLUE 


14 


PALE BLUE 


2 


BRIGHT BLUE 


15 


ORANGE 


3 


RED 


16 


PINK 


4 


MAGENTA 


17 


PALE MAGENTA 


5 


MAUVE 


18 


BRIGHT GREEN 


6 


BRIGHT RED 


19 


SEA GREEN 


7 


PURPLE 


20 


BRIGHT CYAN 


8 


BRIGHTMAGENTA 


21 


LIME GREEN 


9 


GREEN 


22 


PALE GREEN 


10 


CYAN 


23 


PALE CYAN 


11 


SKY BLUE 


24 


BRIGHT YELLOW 


12 


YELLOW 


25 


PALE YELLOW 






26 


BRIGHT WHITE 



Appendix 6: Quick Syntax Checker 



The Amstrad manual contains a comprehensive and instructional 
section for each part of the BASIC syntax. However, sometimes it is 
useful to be able to have an idea of which 'word' is required before 
looking it up. This list of all the keywords has been separated into 
useful subsections. Anyone wishing to learn the commands 
associated with say'SOUND 1 would simply look up the correct list and 
then refer to the individual section in the Amstrad manual. 



MATHS 


DRAWR 


POKE 


ABS 


MOVE 


REMAIN 


AND 


MOVER 


RETURN 


ATN 


ORIGIN 


SPEEDINK 


CI NT 


PLOT 


SPEEDWRITE 


COS 


PLOIR 


STEP 


CREAL 


TAG 


STOP 


DEE 


TAGOFF 


THEN 


DEC 


TEST 


TIME 


EXP 


TESTR 


TO 


FEX 




WAIT 


FN 


CONTROL 


WEND 


INT 


AFTER 


WHILE 


LOG 


CALL 


WIDTH 


LOG 10 


DI 




MAX 


EI 


SOUND 


IN 


ELSE 


ENT 


MOD 


END 


ENV 


NOT 


ERROR 


ON SQ 


OR 


EVERY 


RELEASE 


PI 


FOR 


SOUND 


RAD 


GOSIJB 


SQ 


RANDOMIZE 


GOTO 




RND 


IF 


PROGRAMMING 


ROUND 


INKEY 


AUTO 


SGN 


INKEYS 


CLEAR 


SIN 


IMP 


CONT 


SQR 


JOY 


DATA 


TAN 


LINE INPUT 


DELETE 


UNT 


NEXT 


DEFINT 


XDR 


ON 


DEFREAL 




ON BREAK 


DEFSTR 


GRAPHICS 


ON ERROR GOTO 


DIM 


CLG 


OUT 


EDIT 


DRAW 


PEEK 


ERASE 
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ERL 


CHAIN 


STRINS 


ERR 


CLOSEIN 


UPPERS 


PRE 


CLOSEOUT 


VAL 


HIMEM 


EOF 




INPUT 


LOAD 


SCREEN 


KEY 


MERGE 


BORDER 


KEYDEF 


OPENTN 


CLS 


LET 


OPENOUT 


INK 


LIST 


SAVE 


LOCATE 


MEMORY 




MODE 


NEW 


STRING 


PAPER 


READ 


ASC 


PEN 


REM 


BINS 


POS 


RENUM 


CHRS 


PRINT 


RESTORE 


DEFSTR 


SPC 


RESUME 


HEXS 


TAB 


RUN 


INSTR 


USING 


SYMBOL 


LEFTS 


VPOS 


SYMBOL AFTER 


LEW 


WINDOW 


TROFF 


LOWERS 


WINDOW SWAP 


TRON 


MIDS 


XPOS 




RIGHTS 


YPOS 


FILES 


SPACES 


ZONE 


CAT 


STRS 





Here is o selection of 24 exciting, high-quality games 
written especially for the Amstrad and designed so the 
reader can create his own games using the basic 
subroutines in the book. All categories of games are 
included from the classic Maze Maniac to educational 
games such as Sum Fun. Each program is presented to 
appeal to all Amstrad owners no matter how old or 
young r whether you are completely new to computing or 
fairly experienced, A selection of useful routines is also 
given to help you modify the memory, create original 
graphics and develop your own programs. A reference 
section includes character codes, memory map, quick 
syntax checker and screen and char grid. 

All the games make full use of the Am st rod's facilities and 
are thoroughly tested and crash-proofed. 

The Author 

Jim Gregory is Managing Director of Mr Micro, one of 
Britain's leading games software houses. He has 
contributed to Persona/ Computer World, Leisure and 
Electronics Trader and Computer and Video Games. 
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ADDITIOh4AL r- J O ~T E S FOR: 

SENSATIONAL GAMES E Q R THE Ar-ISTRAD 

Since publ i cat ion of the above book some problems have been 
reported by purchasers*. Each report has been carefully examined 
and these additional notes have been produced to help ease any 
difficulties snd even improve some of the listings. If a program 
title does: not appear in these notes then it may be assuf^ed that 
they have not caused any problems. 

rr-t jcs. f=> x ?~ O E ! E S ~T~ E 

There are no faults in the listing but there has been confusion 
over the symbol printed between quotes for V^. This is the 
apostrophe and is obtained using Ishiftl 7. 
To remove the ability to cheat the following lines can be added. 

34065 IF OINIOPO THEN 34040 
36020 IF N*=0*<N> THEN 36055 
36055 IF 0<H><>PO THEN 36040 

WARMING ONLY TO BE READ BY THOSE WHO HAVE DIFFICULTY SOLVING THE 

ADVENTURE: 

We suggest you start by taking the knife then climbing the rope. 

DO NOT GO A^T YET or you ma.y be trapped . Once you have c 1 eaned the 

decks and found a new 1 ocat i on you should be ab 1 e to sol ve the 

rest. NO FURTHER CLUES WILL BE GIVEN! 

F=> A X fv! 33 C; U; !E* ^> IE A K O *_T T 

Listirsa is correct but prob 1 ems have ar i sen by confusion of 1 ' s 
with I*s so take care! 

STAR TF>EK 

Listing is correct except for the minor error in lines 27130 and 

27100 in which CHR*f235> should be nhB.nsed to CHRSC234). This will 

produce the cor rec t symbo 1 to shoot at: 

DUO DRAUGHTS 

Problems reported such as not clearing, extra draughts etc. are 

due to entry m i st akes . 

Note: Stalemate si tuat ion cannot be detected t>y the program and so 

* QUIT* must be used to end such games. 

The board should be printed as shades of blue for draughts and 

shades of red for Chess - this is not a fault. 

There is a problem with the 'REPLAY' option which can be corrected 
by the add ition of the foil owi ng 1 i nes. 

110£5 ZS(count , I)=*FF M 

1I0S0 IF A*= H Y" THEN DEM=I:GOSUB 35005: GOTO 1100 

J 1090 IF A^-M 11 THEN GOTO 1100 

34160 GOTO 23100 

35000 DEM=0 

35005 COUMT=0:PLAY=1 

35500 IF DEM=1 THEN RETURN 

35505 IF PLAY=1 THEN 29000 
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pontoo r-j 

There are some 1 i nes which d iseppeared duri ng make up of the book - 
They should be adde^ to the lines already listed, 

11100 C=(RND(I>*5I) *!: IF AV<C)=0 THEM 11100 
1*105 WC=NC+l:BC(NC)=C 
J 1110 RETURN 

0r ; p3 9- ier Line I60I1 is not clear. It actually ends "...-. THEN 
1 6005 " 

On page 99 line 65 should end with just 80 (the ' *££ ' should not be 
entered ^ 

F> X O K M A fvf 

This is correct as listed. Unfortunately extensive machine code 
would be required to speed up the game. Hone the less it is still 
3 playable BASIC game. 

S K X F* F* Y 

T C prevent problems i -f the 1 09 carries 3KIPPY oft screen the 
-foil owi ng 1 i nes shou 1 d be added : 

463 I c KX+KDX=0 OR KX+KDX=20 THEN 50500 

710 MODE 0:INK 15,24: INK 14 , 26 : BORDER 0:PAPER 0:CLS:PRINT 

CHR* (30 5 : INK 0,0 

TODAY E tvj <3 L_ A fv| X> 

Th- program is correct as 1 is ted and all problems have been -from 

incorrect DATA which gives a syntax error (or a strange map) when 

typed i n wrong 1 y . 

I-f you do not want t he response box to -f I ash enter : 

905 PAPER#3.0 

I-f you want cities to be r -emoved once s^^^^-^ ihcrn fcp lace the 

existing lines with these ainmendments: 

460 PLOT ::,'■■', 3 

943 PLOT X,Y,3 

CHARACTER BUILDER 

To check t hat characters are i n range when requested by the 

operator, the -following line should be added: 

r.3090 IF VA:0 OR VA>255 THEN 13050 

Disk Owners will have to alter the memory area used since it has 
been -found to clash with the D-O-S. In lines 18030,21060 and 27000 
the numh&r 43776 should be changed to 42492. 

Mote: All other programs have now been tested with the Amstrad 
Disc Systeir* end work per-fectly. 
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GErvlER^L- PROBLEMS 
X t^*=* V^'OV^^R ARGUMENTS 

The vast Majnrjtv of -feedback obtained has been concerning the 
error message a IMPROPER ARGUMENT" This is when a recognised 
commend cannot be executed. In particular this occurs on SYMBOL 
AFTER instructions. The reason being that if this is attempted 
twice (i.e, because the program has already run once) the ram top 
w i 1 I e ! t-9Bf»y be set and so the error will resul t . 

The solution is * i r-st of al 1 not to run the program unt i i 
completed bt\^ saved. If however you have mistyped something and 
the program breaks cut, then * BO HOT RUM' again after correcting 
the error. 

Instead it is best to 'fool' the machine into re-setting by 
starting a 'LOAD' sequence- This may be most simply done by 
hoi d ing down ' CTRL. ' Bnd press i ng * EHTER* . 

This will produce the T p^ess play' prompt. Next use the escape key 
to break out. The program can then be run again. 

Unfortunately the IMPROPER ARGUMENT is a feature of AMSTRAD'S 
operation which is not easy to overcome, other than described 
above * 

S V rvl T A X ERRORS 

When the machine gives a syntax error it does not mean that the 
listing is wrong. Follow the hints given in the book to resolve 
any probler-s. Take particular care entering DATA lines since this 
is far and away the most common cause of programs not functioning 
as expected . 

I thank you for purchasing the book and hope that these additional 

notes villi increase your enjoyment of it. 



Tlr* GREGORY DEC, * S4 



